منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
+1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : +1 (/showthread.php?tid=8194)



+1 - محمد - 28-03-13

كود :
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 ...............


+1 - just.coder - 28-03-13

وضح

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

ولا اى بالظبط


+1 - sooriaty03 - 28-03-13

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

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

بالتوفيق