[عيسى ابو ارميس]

السلام عليكم ورحمة الله وبركاته
انا قمت بتصميم برنامج الاتقاط الصور الفوري ، ممكن كود الانشاء مجلد [اسم معين وفي حال وجود المجلد يضع امامه رقم " مثل مجلدات الويندوز "
وششكرا

[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته , هذا هو الكود لعمل ذلك :

PHP كود :

Private Sub Command1_Click()

Dim I As Integer
Dim NewFolderPath As String

If Dir$("D:\NewFolder", vbDirectory) = "" Then
   
   NewFolderPath = "D:\NewFolder"
   
   MkDir "D:\NewFolder"
   DoEvents

Else
 
   For I = 1 To 32000
       If Dir$("D:\NewFolder_" & I, vbDirectory) = "" Then
          NewFolderPath = "D:\NewFolder_" & I
          MkDir "D:\NewFolder_" & I
          DoEvents
          Exit For
       End If
   Next
   
End If

MsgBox "تم إنشاء المجلد الجديد في المسار التالي:" & vbNewLine & NewFolderPath

End Sub 


[Amir_Alzubidy]

السلام عليكم 
اخي احمد يسلمو ايديك 
والله يعطيك العافية 
هذا مثال تطبيقي على نفس الكود لكن بتعديل بسيط جدا 
--------------------------

  Create Folder.rar (الحجم : 1.26 ك ب / التحميلات : 75)
--------------------------
شكرا جزيلا