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

[حسين العربى]

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

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

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

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

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

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

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

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

ليتضح الامر 

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

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

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

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

[حسين العربى]

up

[ابو جودي]

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()

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

[حسين العربى]

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

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

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

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

 

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

[jjafferr]

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

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

السلام عليكم

 

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

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

 

جعفر

[حسين العربى]

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

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

[ابو جودي]

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

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

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

[حسين العربى]

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

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

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

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

[ابو جودي]

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

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

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

[حسين العربى]

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

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

 

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

[jjafferr]

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]

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

والله يعلم

[حسين العربى]

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

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

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 بواسطه حسين العربى

[حسين العربى]

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

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

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

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

[حسين العربى]

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

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

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

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

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

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

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

[ابو جودي]

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

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

 

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

 

جعفر

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

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

[jjafferr]

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

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

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

 

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

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

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

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

 

جعفر

[ابو جودي]

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

 

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

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

 

جعفر

نعم 

[حسين العربى]

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

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

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

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

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

تم تعديل أبريل 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]

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

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

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

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

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

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

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

 

جعفر

[ابو جودي]

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\"

 

[حسين العربى]

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

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

ممكن مثلا

    sFolder ="D:\scanner\"

 

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

[ابو جودي]

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

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

حضرتك تأمر

 

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

 

[حسين العربى]

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

حضرتك تأمر

 

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

 

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