كود :
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 ...............
وضح
انت عايز لو لقيت الفولدر موجود تعمل فولدر ب اسم تانى
ولا اى بالظبط
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
هذا الكود سيبدأ بإنشاء مجلد 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
بالتوفيق