المشاركات : 56
المواضيع 25
الإنتساب : Aug 2018
السمعة :
1
الشكر: 146
تم شكره 42 مرات في 27 مشاركات
04-04-19, 12:17 PM
(آخر تعديل لهذه المشاركة : 04-04-19, 04:46 PM {2} بواسطة معاذ_ابراهيم.)
السلام عليكم
لنفترض لدي مائه مجلد عشرون منها تحتوي على ملفات من نوع txt والباقي لا يوجد فيها ملفات من هذا النوع.
كيف اقون بجلب المجلدات التي تحتوي على ملفات txt من هذه المجلدات المئه
ارجو من الله ثم منكم العون
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير pth سيجمع اسماء المجلدات التي تحتوي ملفات txt فقط في اداه ListBox
ويمكن تغيير ListBox باي كود اخر بحيث يقرا المتغير d والذي فيه اسم المجلد
Dim pth = "..............."
Dim drs = Directory.GetDirectories(pth, "*.*", SearchOption.AllDirectories)
For Each d As String In drs
If Directory.GetFiles(d, "*.txt").Count > 0 Then
ListBox1.Items.Add(d)
End If
Next
المشاركات : 56
المواضيع 25
الإنتساب : Aug 2018
السمعة :
1
الشكر: 146
تم شكره 42 مرات في 27 مشاركات
الحمد لله
اشكرك اخي على المساعده القيمه
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
هذا الكود يجلب مسارات الملفات من نوع txt
Dim pth = "..............."
Dim fs = Directory.GetFiles(pth, "*.txt", SearchOption.AllDirectories)
For Each t As String In fs
ListBox1.Items.Add(t)
Next