منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 
لنفترض لدي مائه مجلد عشرون منها تحتوي على ملفات من نوع txt والباقي لا يوجد فيها ملفات من هذا النوع.
كيف اقون بجلب المجلدات التي تحتوي على ملفات txt من هذه المجلدات المئه
ارجو من الله ثم منكم العون

هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير 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

الحمد لله 
اشكرك اخي على المساعده القيمه

(04-04-19, 04:01 PM)بدري كتب : [ -> ]هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير pth سيجمع اسماء المجلدات التي تحتوي ملفات txt فقط في اداه ListBox
ويمكن تغيير...

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

Dim pth = "..............."
Dim fs = Directory.GetFiles(pth, "*.txt", SearchOption.AllDirectories)
For Each t As String In fs
    ListBox1.Items.Add(t)
Next

(04-04-19, 10:19 PM)DK-x كتب : [ -> ]

(04-04-19, 04:01 PM)بدري كتب : [ -> ]هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير pth سيجمع اسماء المجلدات التي تحتوي ملفات txt فقط في اداه ListBox
ويمكن تغيير...

عمل ممتاز لكن اذا اردت ان يجلب فقط الملفات من نوع txt (المسارات الخاصة بها) ويضعها في ListBox كيف يكون الكود 

وجزاك الله خير