[محمد]

كود :

If (System.IO.Directory.Exists(TextBox1.Text + "\New")) = False Then
            System.IO.Directory.CreateDirectory(TextBox1.Text + "\New " & +1)
        Else
            System.IO.Directory.CreateDirectory(TextBox1.Text + "\New")
        End If

اريد اضافة 1 اذا وجد الملف يعنى لو وجد new 1 يعمل new 2 ...............

[just.coder]

وضح

انت عايز لو لقيت الفولدر موجود تعمل فولدر ب اسم تانى

ولا اى بالظبط

[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

بالتوفيق