منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : انشاء مجلد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
انا قمت بتصميم برنامج الاتقاط الصور الفوري ، ممكن كود الانشاء مجلد [اسم معين وفي حال وجود المجلد يضع امامه رقم " مثل مجلدات الويندوز "
وششكرا
وعليك السلام ورحمة الله وبركاته , هذا هو الكود لعمل ذلك :

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 
1 To 32000
       
If Dir$("D:\NewFolder_" IvbDirectory) = "" Then
          NewFolderPath 
"D:\NewFolder_" I
          MkDir 
"D:\NewFolder_" I
          DoEvents
          
Exit For
       
End If
   
Next
   
End 
If

MsgBox "تم إنشاء المجلد الجديد في المسار التالي:" vbNewLine NewFolderPath

End Sub 
السلام عليكم 
اخي احمد يسلمو ايديك 
والله يعطيك العافية 
هذا مثال تطبيقي على نفس الكود لكن بتعديل بسيط جدا 
--------------------------
[attachment=10115]
--------------------------
شكرا جزيلا