[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

هذا الكود سيبدأ بإنشاء مجلد New
فإذا كان موجودا سينشئ New 1
فإذا كان موجودا سينشئ New 2
.... وهكذا

كود :

If System.IO.Directory.Exists(TextBox1.Text & "\New") = False Then
            System.IO.Directory.CreateDirectory(TextBox1.Text & "\New")
        Else
            Dim Count As Integer = 1
            Do Until System.IO.Directory.Exists(TextBox1.Text & "\New " & Str(Count)) = False
                Count += 1
            Loop
            System.IO.Directory.CreateDirectory(TextBox1.Text & "\New " & Str(Count))
        End If

بالتوفيق