[bidaya]

بسم الله الرحمن الرحيم

كود انشاء مجلد في اي مكان اريد

وجدت هذا الكود لكن كيف يمكن استعماله ياريت احد يساعدني

وشكرا

كود :

Public Sub MyMkDir(sPath As String)
   Dim iStart          As Integer
   Dim aDirs           As Variant
   Dim sCurDir         As String
   Dim i               As Integer

   If sPath <> "" Then
       aDirs = Split(sPath, "\")
       If Left(sPath, 2) = "\\" Then
           iStart = 3
       Else
           iStart = 1
       End If

       sCurDir = Left(sPath, InStr(iStart, sPath, "\"))

       For i = iStart To UBound(aDirs)
           sCurDir = sCurDir & aDirs(i) & "\"
           If Dir(sCurDir, vbDirectory) = vbNullString Then
               MkDir sCurDir
           End If
       Next i
   End If
End Sub

[bidaya]

(08-01-18, 04:00 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
لم اجرب الكود السابق 
استفد من هذا المثال 

شكرا لك اخي الكريم 
مثال جميل فعلا كنت ساطرح سؤال عنه

سانتظر بقية الاخوة للافادة في الكود السابق
الف شكر لك اخي