تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
+1
#1
كود :
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 ...............
الرد }}}}
تم الشكر بواسطة:
#2
وضح

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

ولا اى بالظبط
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

هذا الكود سيبدأ بإنشاء مجلد 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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم