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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18134)

جلب اسماء المجلدات الموجودة داخل مجلد معين - عبدالله الصافي - 23-11-16

السلام عليكم ورحمة الله
ابحث عن كود يقوم بجلب اسماء المجلدات الموجودة داخل مجلد معين
لقد عملت طريقة ولكنها كانت تعود بمسار المجلد كامل ولكني اريد اسمه فقط
ولكم مني جزيل الشكر

RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - ممدوح الخطيب - 24-11-16

السلام عليكم ورحمة الله وبركاته
اخي جرب المثال ده

RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - Ahmed_Mansoor - 24-11-16

وعليكم السلام ورحمة الله وبركاته

أهلا بك اخي الكريم , وهذا مثال زيادة من عندي .

RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - AL_BRNS - 24-11-16

السلام عليكم

بعد الشكر  للجميع و لزيادة الفائدة

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim strFolder As String
strFolder = Dir("C:\Program Files\*.", vbDirectory)
Do While strFolder <> ""
If Not (strFolder = "." Or strFolder = "..") Then
List1.AddItem strFolder
End If
strFolder = Dir()
Loop
End Sub 

بالتوفيق .


RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - sendbad100 - 24-11-16

شكرا لكم جميعا  اخواني   انا ايضا احتاج هذا الكود

الله يجزيكم الف خير Heart

RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - عبدالله الصافي - 25-11-16

شكرا لكم اخواني الكرام وجزاكم الله خيرا
المثال للأخ احمد منصور والاخ البرنس مثالن رائعين جدا
وطلبي منهما هو شرح الكود وكيفة عمله لاستطيع التعامل معه في مشاريع اخري

اما الاخ ممدوح الخطيب فاظن مثاله ليس vb6 علي ما اظن ومع ذلك تحية له لتعاونه

RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - sendbad100 - 26-11-16

شرح مثال الاستاذ احمد منصور  
حسب ما فهمت 

والله الموفق

كود :
'متغير عام نصي
Dim MyPath As String


Private Sub Add_FoldersInList(zFolderPath As String)

' متغير نصي
Dim zFolders As String

'مسح اللسته
List1.Clear

'وضع المسار في المتغير
zFolders = Dir$(zFolderPath, vbDirectory)


'لووب لجمع المجلدات
Do While Len(zFolders)
             
' لمنع اظهار النقطة او نقطتين في اللست
  If (zFolders <> ".") And (zFolders <> "..") Then
 
     
'للسماح للمجلدات فقط بالظهور واستثناء غيرها
     If GetAttr(zFolderPath & zFolders) And vbDirectory Then
       
       
    '  عرض المجد الحالي في اللست
        List1.AddItem Trim$(zFolders)
     
     End If
     
  End If
               
  zFolders = Dir$
         
Loop

End Sub

' عند تشغيل الفورم تشغيل الاجراء التالي
Private Sub Form_Load()

'الشرط التالي لتحديد مسار البرنامج والتاكد من وجود السلاش في اخر المسار
'ايضا  حفظ المسار داخل المتغير MYpath.
If Right(App.Path, 1) <> "\" Then MyPath = App.Path & "\" Else MyPath = App.Path

'تم طلب الاجراء   مع ارسال المسار المحفوظ داخل المتغر Mypath  + اضافة اسم مجلد موجود داخل المسار نفسه اي بجوار البرنامج
'اسم المجلد الذي سيتم عرض البينات التي بداخله  هو MyFolders
Add_FoldersInList MyPath & "MyFolders\"


End Sub


RE: جلب اسماء المجلدات الموجودة داخل مجلد معين - عبدالله الصافي - 26-11-16

طيب ممكن اعرف Dir$ بماذا تعود في الكود
وايضا vbDirectory
وايضا شرح التكوينه بهذا الشكل zFolders = Dir$(zFolderPath, vbDirectory)
وشكرا لتعاونكم