برنامج صادر وراد

**حسين العربى** · أبريل 26, 2017

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي اعضاء ومشرفي المنتدي الكرام كل عام وانتم بخير

سوالي خاص ببرنامج الصادر والوارد وهو

انا عندي فولدر اسمه وارد. في ال D

لما ادخل الي شاشة عمل وارد. واحط رقم الوارد وباقي البيانات. يبقي في زر امر عندي ينشأ لي فولد داخل فولدر الوارد ويسميه برقم الورد الموجود في مربع النص رقم الوارد ويعطيه تاريخ اليوم لو امكن.

بعد ذلك يجلب مساره الي مربع نص مسار الفولد الي هو اسمه برقم الورد وتاريخ اليوم. طبعا المسار هيكون كده

مثلا D:/وارد/رقم الوار مثلا 1 بعد كده تاريخ اليوم

يجلبه في مربع نص مسار الفولدر ويجلب اسم الفولد في اسم الفولدر وجزاك الله خيرا

اليكم نسخة من البرنامج نظام الصادر والوار

ليتضح الامر

طباع امن خلا ل بحثي في المنتدي وجد مثال مطبق عليه ما اريد بالظبط ولاكن ينقصه شي بسيط هو

انه مايدرج المسار لحاله لازم المستخدم هو الي يحدد المسار اولا بعدين يضغط علي زر انشاء فولدر وارد اليكم المرفق للنظر اليه وتعديل مايلزم تعديله

نظام الصادر والوارد.rar

عمل فولدر او مجلد بتاريخ اليوم.rar

**حسين العربى** · أبريل 27, 2017

up

**ابو جودي** · أبريل 27, 2017

14 ساعات مضت, حسين العربى said:

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي اعضاء ومشرفي المنتدي الكرام كل عام وانتم بخير

سوالي خاص ببرنامج الصادر والوارد وهو

انا عندي فولدر اسمه وارد. في ال D

لما ادخل الي شاشة عمل وارد. واحط رقم الوارد وباقي البيانات. يبقي في زر امر عندي ينشأ لي فولد داخل فولدر الوارد ويسميه برقم الورد الموجود في مربع النص رقم الوارد ويعطيه تاريخ اليوم لو امكن.

بعد ذلك يجلب مساره الي مربع نص مسار الفولد الي هو اسمه برقم الورد وتاريخ اليوم. طبعا المسار هيكون كده

مثلا D:/وارد/رقم الوار مثلا 1 بعد كده تاريخ اليوم

يجلبه في مربع نص مسار الفولدر ويجلب اسم الفولد في اسم الفولدر وجزاك الله خيرا

اليكم نسخة من البرنامج نظام الصادر والوار

ليتضح الامر

طباع امن خلا ل بحثي في المنتدي وجد مثال مطبق عليه ما اريد بالظبط ولاكن ينقصه شي بسيط هو

انه مايدرج المسار لحاله لازم المستخدم هو الي يحدد المسار اولا بعدين يضغط علي زر انشاء فولدر وارد اليكم المرفق للنظر اليه وتعديل مايلزم تعديله

نظام الصادر والوارد.rar

عمل فولدر او مجلد بتاريخ اليوم.rar

انشئ موديول جديد
وضع هذا الكود به

Public Function db_path()
db_path = CurrentProject.Path & "\"
End Function

وعلى زر الامر انشاء المجلد ضع الكود الاتى

On Error Resume Next

'انشاء مجلدات البرنامج فى نفس مسار قاعدة البيانات

Dim Dir_archives, Dir_sader, Dir_wared, Dir_current_year_wared, Dir_id


Dir_archives = db_path() & "archives\"
Dir_wared = db_path() & "archives" & "\wared\"
Dir_current_year_wared = db_path() & "archives" & "\wared\" & format(date(),"yyyy" & "\"
Dir_id = db_path() & "archives" & "\wared\" & format(date(),"yyyy" & "\" & [id_wared]

If Dir(Dir_archives, vbDirectory) = "" Then
        
        MkDir Dir_archives
        MkDir Dir_wared
        MkDir Dir_current_year_wared
        MkDir Dir_id

End If

انا كان يهمنى اعمل المجلد بالسنه على اعتبار ان كل سنه يتم انشاء مجلد خاص بها وذلك لان كل سنه يتم بدء الترقيم من الرقم 1 مجددا

لك حرية التغيير على الكود بما يتماشى ويتناسب مع افكارك

ملاحظة

[id_wared]         يعنى اسم مربع النص على النموذج والذى به قيمه رقم الوارد

والهدف من الموديول الاول هو استدعاء المسار تلقائيا من خلال db_path()

كما تم انشائه فى الموديول

**حسين العربى** · أبريل 27, 2017

استاذي الفاضل المحترم ابا جودي جزاك الله خيرا علي اهتمام وهذا من كرم اخلاق وطيب قلبك ( بارك الله فيك كود جميل جدا )

ولاكن هذا ليس طلبي / طلبي موجود في المرفق الموجود في المشاركه الاولي المرفق اسمه عمل فولدر او مجلد بتاريخ اليوم.rar به كود جميل جدا بياخد رقم الوارد واسم الفولدر هل هو صادر ام وارد من مربع نص بينشأه بتاريخ اليوم

وبيخاد مسار انشاء الفولدر من مربع نص المسار

بس مشكله الكود الي داخل المرفق في زر امر انشاء فولدر اني عاوزه يجلب لي المسار بعد عمل الفولدر بدل ما ني احدد له المسار

تم تعديل أبريل 27, 2017 بواسطه حسين العربى

**jjafferr** · أبريل 27, 2017

10 دقائق مضت, حسين العربى said:

انه ما بينشأ فولدر داخل فولد

السلام عليكم :smile:

انا لم انزل المرفق ، ولكن لعمل مجلد داخل آخر ، يجب ان تعمل المجلد الخارجي ، فمجلد داخله ، فمجلد داخله ...... ، ولا تستطيع عمل المجلدات دفعة واحدة :smile:

اعتذر اذا لم تكن ملاحظتي في سياق الطلب :blink:

جعفر

**حسين العربى** · أبريل 27, 2017

الف شكر استاذ الفاضل jjafferr علي مروك الطيب واهتمامك بمشاركتي

بس انا كنت عاوز تعديل في الكود ولاكن الحين ظبط معاي الف شكر

**ابو جودي** · أبريل 27, 2017

استاذى الجليل @jjafferr
الكود بتاعى انا شغال بيه اللى وضعته يقوم بعمل المجلدات دفعه واحدة :wink2:

مجلدا داخل مجلدا داخل مجلد

تم تعديل أبريل 27, 2017 بواسطه ابا جودى

**حسين العربى** · أبريل 27, 2017

الان, ابا جودى said:

استاذى الجليل
الكود بتاعى انا شغال بيه اللى وضعته يقوم بعمل المجلدات دفعه واحدة

مجلدا داخل مجلدا داخل مجلد

الف شكر استاذ الفاضل ابا جودي ظبط عندي الف الف شكر

**ابو جودي** · أبريل 27, 2017

الان, حسين العربى said:

الف شكر استاذ الفاضل ابا جودي ظبط عندي الف الف شكر

الشكر والحمد لله سبحانه وتعالى وحده فهو الذى تتم بنعمته الصالحات

**حسين العربى** · أبريل 27, 2017

لوتكرمتوا اساتذتي الافاضل ممكن تعديل بسيط علي المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=127678

بعد انشاء فولدر جديد برقم الوارد يتم جلب مسار الفولدر الجديد في مربع نص المسار ليتم حفظ الصور فيه بدل ما اروح ادور علي الفولد واجب مساره يدويا هيكون في تعب علي المستخدم وممكن بالخطأ يجلب مسار فلودر غير لرقم وارد غير

تم تعديل أبريل 27, 2017 بواسطه حسين العربى

**jjafferr** · أبريل 27, 2017

15 دقائق مضت, ابا جودى said:

1. الكود بتاعى انا شغال بيه اللى وضعته يقوم بعمل المجلدات دفعه واحدة

2. مجلدا داخل مجلدا داخل مجلد

1. هذا غير صحيح ابا جودي ، ولكن الكود يقوم بعمله "مجلدا داخل مجلدا داخل مجلد":

منذ ساعه, ابا جودى said:

MkDir Dir_archives

MkDir Dir_wared

MkDir Dir_current_year_wared

MkDir Dir_id

يعني مثل ما قلت:

24 دقائق مضت, jjafferr said:

يجب ان تعمل المجلد الخارجي ، فمجلد داخله ، فمجلد داخله

جعفر

**Shivan Rekany** · أبريل 27, 2017

7 دقائق مضت, حسين العربى said:

بعد انشاء فولدر جديد برقم الوارد يتم جلب مسار الفولدر الجديد في مربع نص المسار ليتم حفظ الصور فيه بدل ما اروح ادور علي الفولد واجب مساره يدويا هيكون في تعب علي المستخدم وممكن بالخطأ يجلب مسار فلودر غير لرقم وارد غير

حسب فهمي لطلبك هذا
اضف هذا الى كودك

        Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")

اي سيكون الكود كالتالي

Private Sub btn_mkdir_Click()
Dim fs As Object
Dim a As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
        If fs.FolderExists(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) = True Then
            MsgBox "المجلد موجود سابقاً"
         Else
               Set a = fs.Createfolder(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd"))
        		Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")
			 MsgBox "تم عمل المجلد بنجاح"
         End If
End Sub

والله يعلم

**حسين العربى** · أبريل 27, 2017

الف شكر استاذي الفاضل جزالك الله خير وزادك الله من علمه ( بالفعل هذا هو المطلوب )

استاذتي الافاضل هذا الكود

Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogFilePicker)
x.AllowMultiSelect = True
If x.Show = -1 Then
For i = 1 To x.SelectedItems.Count
CurrentDb.Execute "insert into [table2]([emp_id],[ImagePath]) values(" & ITEM_NO & ",'" & x.SelectedItems(i) & "')"
Next i
Me.Table2.Requery
End If

ياأخذ الصور من الكمبيوتر ويدرجها في النموذج الفرعي

اريد تعديل عليه بحيث ينسخ الصوره الي المسار المحدد في مربع النص المسار ويعطيها تاريخ اليوم والوقت وشكرا لكم

تم تعديل أبريل 27, 2017 بواسطه حسين العربى

**حسين العربى** · أبريل 27, 2017

6 ساعات مضت, حسين العربى said:

الف شكر استاذي الفاضل جزالك الله خير وزادك الله من علمه ( بالفعل هذا هو المطلوب )

استاذتي الافاضل هذا الكود

Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogFilePicker)
x.AllowMultiSelect = True
If x.Show = -1 Then
For i = 1 To x.SelectedItems.Count
CurrentDb.Execute "insert into [table2]([emp_id],[ImagePath]) values(" & ITEM_NO & ",'" & x.SelectedItems(i) & "')"
Next i
Me.Table2.Requery
End If

ياأخذ الصور من الكمبيوتر ويدرجها في النموذج الفرعي

اريد تعديل عليه بحيث ينسخ الصوره الي المسار المحدد في مربع النص المسار ويعطيها تاريخ اليوم والوقت وشكرا لكم

الف شكر اخواني تم التوصل الي حل الحمدلله

**حسين العربى** · أبريل 27, 2017

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام

اليكم نسخه من برنامج الصادر والوارد مع صلاحيات طبعا البرنامج ينقه بعض الاشياء سوف اكملها بأذن الله وارفق لكم اخر تعديل

اريد تقييمكم للبرنامج وملاحظتكم

اليوزر ADMIN الباسورد 1982

واشكر كل من قام بمساعدتي في هذا البرنامج وله مني جزيل الشكر وانشاء الله لما ارفق اخر تعديل سوف اذكر اسماء كل من قام بمساعدتي في البرنامج

برنامج ارشيف صادر وارد.rar

تم تعديل أبريل 27, 2017 بواسطه حسين العربى

**ابو جودي** · أبريل 28, 2017

20 ساعات مضت, jjafferr said:

1. هذا غير صحيح ابا جودي ، ولكن الكود يقوم بعمله "مجلدا داخل مجلدا داخل مجلد":

يعني مثل ما قلت:

جعفر

اهاااااااااااااا
اسف اختلط على الامر

انا فكرتك حضرتك تقصد انه مش ممكن انشاء اكثر من مجلد وكلهم داخل بعضم بكود واحد اسف جدا جدا

**jjafferr** · أبريل 28, 2017

6 دقائق مضت, ابا جودى said:

اهاااااااااااااا
اسف اختلط على الامر

انا فكرتك حضرتك تقصد انه مش ممكن انشاء اكثر من مجلد وكلهم داخل بعضم بكود واحد اسف جدا جدا

نعم لا تستطيع بكود واحد ، يعني لا يمكن لكود واحد ان يعمل لك جميع المجلدات دفعة واحدة ،

وانما الكود يجب ان

20 ساعات مضت, jjafferr said:

لعمل مجلد داخل آخر ، يجب ان تعمل المجلد الخارجي ، فمجلد داخله ، فمجلد داخله ...... ، ولا تستطيع عمل المجلدات دفعة واحدة

جعفر

**ابو جودي** · أبريل 29, 2017

في 4/28/2017 at 10:53, jjafferr said:

نعم لا تستطيع بكود واحد ، يعني لا يمكن لكود واحد ان يعمل لك جميع المجلدات دفعة واحدة ،

وانما الكود يجب ان

جعفر

نعم

**حسين العربى** · أبريل 29, 2017

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اقد لكم اليوم هديه برنامجي المتواضع الخاص بارشفة الصادر والوارد

ويجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه

والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله

الف شكر لكم استاتذتي الافاض لكم مني كل الشكر والتقدير وجعلكم الله عونا لكل محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء

https://drive.google.com/open?id=0B5oTVOnhU-rrTnJQRDFyNElNSDg

تم تعديل أبريل 29, 2017 بواسطه حسين العربى

**حسين العربى** · أبريل 29, 2017

استاذي الفاضل sandanet لو امكن التعديل علي كود سحب عدة صور من الكمبيوتر قص وادراجها في المسار المحدد في مربع نص مسار الفولدر التعديل الي انا عاوزه اني فولدر scanner ما يكونش

في نفس مسار المجلد يكون في اي مكان في الكمبيوتر خوفا من عبث المستخدم او حذف البرنامج واشياء اخري ليست في الحسبان

تحديد المسار من خلال مربع نص ان امكن بيحث لو تم تغير مكان الفولدر است

السطر المعلم باللون الاحمر هو المطلوب التعديل عليه

Dim strFileNames As Variant
Dim rst As DAO.Recordset

If Dir(Me.lenk_fiel, vbDirectory) = "" Then
MsgBox "ÇáãÓÇÑ" & vbCrLf & Me.lenk_fiel & vbCrLf & _
"ÛíÑ ãæÌæÏ Ýí ÇáßãÈíæÊÑ" & vbCrLf & _
"Sorry, this folder does not exist"
Exit Sub
End If

'Call creat_folder
Dim sFolder
sFolder = Application.CurrentProject.Path & "\scanner" & "\"

Dim Msg, Style, Response
Msg = "ÓíÊã äÓÎ ÌãíÚ ÇáãáÝÇÊ åá ÊÑíÏ ÇáÇÓÊãÑÇÑ¿¿ " & vbCrLf & _
"ÇÐÇ ßäÊ ÊÑíÏ ÇÎÊíÇÑ ãáÝÇÊ ãÚíäÉ ãä ÇáßãÈíæÊÑ ÝÞØ ÇÖÛØ áÇ"
Style = vbYesNo + vbCritical + vbDefaultButton2
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then

sFolder = Replace(sFolder, "\\", "\")

Set rst = Me.Table2.Form.RecordsetClone

StrFile = Dir$(sFolder & "*.*")
Do While Len(StrFile) > 0

FileExt = Mid(StrFile, InStrRev(StrFile, ".") + 1)
File_Path_Name = Replace(StrFile, "\\", "\")
File_Name = Replace(File_Path_Name, sFolder, "")


Name sFolder & File_Path_Name As Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name

rst.AddNew

rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name

rst!File_Check = 2
rst!emp_id = Me.ITEM_NO
rst.Update
StrFile = Dir$()
Loop

Else

strFilter = "All Files " & _
"(*.*)" & vbNullChar & _
"*.*" & vbNullChar & vbNullChar

strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter)

If UBound(strFileNames) = 0 Then
Exit Sub
End If

SelectedFiles = UBound(strFileNames)

sFolder = strFileNames(1)
Do While Right(sFolder, 1) <> "\"
sFolder = Left(sFolder, Len(sFolder) - 1)
Loop
sFolder = Replace(sFolder, "\\", "\")

Set rst = Me.Table2.Form.RecordsetClone

For i = 1 To UBound(strFileNames)

FileExt = Right(strFileNames(i), 3)
File_Path_Name = Replace(strFileNames(i), "\\", "\")
File_Name = Replace(File_Path_Name, sFolder, "")

FileCopy File_Path_Name, Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name
Kill File_Path_Name

rst.AddNew

rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name

rst!File_Check = 2
rst!emp_id = Me.ITEM_NO
rst.Update
Next i

End If

وجزاكم الله خيرا

تم تعديل أبريل 29, 2017 بواسطه حسين العربى

**jjafferr** · أبريل 29, 2017

33 دقائق مضت, حسين العربى said:

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اقد لكم اليوم هديه برنامجي المتواضع الخاص بارشفة الصادر والوارد

ويجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه

والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله

الف شكر لكم استاتذتي الافاض لم كني كل الشكر والتقدير وجعلكم الله عونا لك محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء

https://drive.google.com/open?id=0B5oTVOnhU-rrTnJQRDFyNElNSDg

حياك الله اخوي حسين :smile:

جعفر

**ابو جودي** · أبريل 29, 2017

6 دقائق مضت, حسين العربى said:

استاذي الفاضل sandanet لو امكن التعديل علي كود سحب عدة صور من الكمبيوتر قص وادراجها في المسار المحدد في مربع نص مسار الفولدر التعديل الي انا عاوزه اني فولدر scanner ما يكونش

في نفس مسار المجلد يكون في اي مكان في الكمبيوتر خوفا من عبث المستخدم او حذف البرنامج واشياء اخري ليست في الحسبان

السطر المعلم باللون الاحمر هو المطلوب التعديل عليه

Dim strFileNames As Variant
Dim rst As DAO.Recordset

If Dir(Me.lenk_fiel, vbDirectory) = "" Then
MsgBox "ÇáãÓÇÑ" & vbCrLf & Me.lenk_fiel & vbCrLf & _
"ÛíÑ ãæÌæÏ Ýí ÇáßãÈíæÊÑ" & vbCrLf & _
"Sorry, this folder does not exist"
Exit Sub
End If

'Call creat_folder
Dim sFolder
sFolder = Application.CurrentProject.Path & "\scanner" & "\"

Dim Msg, Style, Response
Msg = "ÓíÊã äÓÎ ÌãíÚ ÇáãáÝÇÊ åá ÊÑíÏ ÇáÇÓÊãÑÇÑ¿¿ " & vbCrLf & _
"ÇÐÇ ßäÊ ÊÑíÏ ÇÎÊíÇÑ ãáÝÇÊ ãÚíäÉ ãä ÇáßãÈíæÊÑ ÝÞØ ÇÖÛØ áÇ"
Style = vbYesNo + vbCritical + vbDefaultButton2
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then

sFolder = Replace(sFolder, "\\", "\")

Set rst = Me.Table2.Form.RecordsetClone

StrFile = Dir$(sFolder & "*.*")
Do While Len(StrFile) > 0

FileExt = Mid(StrFile, InStrRev(StrFile, ".") + 1)
File_Path_Name = Replace(StrFile, "\\", "\")
File_Name = Replace(File_Path_Name, sFolder, "")


Name sFolder & File_Path_Name As Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name


rst.AddNew

rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name

rst!File_Check = 2
rst!emp_id = Me.ITEM_NO
rst.Update
StrFile = Dir$()
Loop

Else

strFilter = "All Files " & _
"(*.*)" & vbNullChar & _
"*.*" & vbNullChar & vbNullChar

strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter)

If UBound(strFileNames) = 0 Then
Exit Sub
End If

SelectedFiles = UBound(strFileNames)

sFolder = strFileNames(1)
Do While Right(sFolder, 1) <> "\"
sFolder = Left(sFolder, Len(sFolder) - 1)
Loop
sFolder = Replace(sFolder, "\\", "\")

Set rst = Me.Table2.Form.RecordsetClone

For i = 1 To UBound(strFileNames)

FileExt = Right(strFileNames(i), 3)
File_Path_Name = Replace(strFileNames(i), "\\", "\")
File_Name = Replace(File_Path_Name, sFolder, "")

FileCopy File_Path_Name, Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name
Kill File_Path_Name


rst.AddNew

rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name

rst!File_Check = 2
rst!emp_id = Me.ITEM_NO
rst.Update
Next i


End If

وجزاكم الله خيرا

    sFolder = المسار اللى حصرتك عاوزه

ممكن مثلا

    sFolder ="D:\scanner\"

**حسين العربى** · أبريل 29, 2017

1 دقيقه مضت, ابا جودى said:


    sFolder = المسار اللى حصرتك عاوزه

ممكن مثلا

    sFolder ="D:\scanner\"

هطمع في كرم اخلاقك وعلمك ممكن ياخد من مربع نص المسار

**ابو جودي** · أبريل 29, 2017

الان, حسين العربى said:

هطمع في كرم اخلاقك وعلمك ممكن ياخد من مربع نص المسار

حضرتك تأمر

sFolder =[اسم مربع نص المسار]

**حسين العربى** · أبريل 29, 2017

1 دقيقه مضت, ابا جودى said:
حضرتك تأمر
sFolder =[اسم مربع نص المسار]

الامر لله وحده / الف شكر استاذي الفاضل علي زوقك

تسجيل الدخول

برنامج صادر وراد

الردود الموصى بها

رابط هذا التعليق

شارك

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

jjafferr

Shivan Rekany

jjafferr

Posted Images

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information