تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية استعمال هذا الفنكشن
#1
بسم الله الرحمن الرحيم
كود انشاء مجلد في اي مكان اريد
وجدت هذا الكود لكن كيف يمكن استعماله ياريت احد يساعدني
وشكرا

كود :
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
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله 
لم اجرب الكود السابق 
استفد من هذا المثال 

.rar   DirMk.rar (الحجم : 1.57 ك ب / التحميلات : 30)
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: bidaya , bidaya
#3
(08-01-18, 04:00 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
لم اجرب الكود السابق 
استفد من هذا المثال 

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

سانتظر بقية الاخوة للافادة في الكود السابق
الف شكر لك اخي Wink
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 519 04-07-20, 05:00 PM
آخر رد: haider kh
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 414 22-06-20, 03:52 PM
آخر رد: eapda
  [vb6.0] برجاء الافادة عن كيفية جمع عدد ساعات MEDHAT_R_S 1 347 22-03-20, 12:14 AM
آخر رد: Amir_Alzubidy
  [سؤال] كيفية منع تكرار رقم الفاتورة او العقد tlbreem 3 488 20-03-20, 03:04 PM
آخر رد: Amir_Alzubidy
  سوال اخوانى الاحباب كيفية الجمع و الطرح فى اكتف ريبورت mhareek 1 450 14-01-20, 05:21 AM
آخر رد: Ahmed_Mansoor
  كيفية استعمال دالة sum مع التاريخ للشهر والسنة gonm64 5 644 24-12-19, 09:20 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 446 24-10-19, 10:16 PM
آخر رد: بوعيسى
  كيفية ازالة الليبل الاصفر في اداة اكتف ريبورت gonm64 2 551 28-08-19, 01:38 PM
آخر رد: gonm64
  طلب مساعدة عن كيفية الحفاظ على ترتيب الاسماء حسب الحروف الابجدية والتسلسل gonm64 14 1,573 26-07-19, 11:45 AM
آخر رد: gonm64
  كيفية التنقل بين خلايا الداتا قريد بشكل عمودي مصمم هاوي 9 1,247 03-07-19, 10:21 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم