+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : انشاء مجلد (/showthread.php?tid=15401)
انشاء مجلد - عيسى ابو ارميس - 08-04-16
السلام عليكم ورحمة الله وبركاته
انا قمت بتصميم برنامج الاتقاط الصور الفوري ، ممكن كود الانشاء مجلد [اسم معين وفي حال وجود المجلد يضع امامه رقم " مثل مجلدات الويندوز "
وششكرا
RE: انشاء مجلد - Ahmed_Mansoor - 10-04-16
وعليك السلام ورحمة الله وبركاته , هذا هو الكود لعمل ذلك :
PHP كود :
Private Sub Command1_Click()
Dim I As Integer
Dim NewFolderPath As String
If Dir$("D:\NewFolder", vbDirectory) = "" Then
NewFolderPath = "D:\NewFolder"
MkDir "D:\NewFolder"
DoEvents
Else
For I = 1 To 32000
If Dir$("D:\NewFolder_" & I, vbDirectory) = "" Then
NewFolderPath = "D:\NewFolder_" & I
MkDir "D:\NewFolder_" & I
DoEvents
Exit For
End If
Next
End If
MsgBox "تم إنشاء المجلد الجديد في المسار التالي:" & vbNewLine & NewFolderPath
End Sub