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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيفية استعمال هذا الفنكشن (/showthread.php?tid=23242)

كيفية استعمال هذا الفنكشن - bidaya - 08-01-18

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

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


RE: كيفية استعمال هذا الفنكشن - bidaya - 08-01-18

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

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

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