[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