تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل]معرفة وجود الملف ضمن مجلد ?
#1
السلام عليكم 
لنفترض لدي مائه مجلد عشرون منها تحتوي على ملفات من نوع txt والباقي لا يوجد فيها ملفات من هذا النوع.
كيف اقون بجلب المجلدات التي تحتوي على ملفات txt من هذه المجلدات المئه
ارجو من الله ثم منكم العون
الرد }}}
تم الشكر بواسطة:
#2
هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير 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
الرد }}}
تم الشكر بواسطة: معاذ_ابراهيم , elgokr , DK-x , ابراهيم ايبو
#3
الحمد لله 
اشكرك اخي على المساعده القيمه
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , بدري , بدري
#4
(04-04-19, 04:01 PM)بدري كتب : هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير pth سيجمع اسماء المجلدات التي تحتوي ملفات txt فقط في اداه ListBox
ويمكن تغيير...

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

الرد }}}
تم الشكر بواسطة: بدري
#5
هذا الكود يجلب مسارات الملفات من نوع txt

Dim pth = "..............."
Dim fs = Directory.GetFiles(pth, "*.txt", SearchOption.AllDirectories)
For Each t As String In fs
    ListBox1.Items.Add(t)
Next
الرد }}}
تم الشكر بواسطة: elgokr
#6
(04-04-19, 10:19 PM)DK-x كتب :
(04-04-19, 04:01 PM)بدري كتب : هذا الكود بعد ان تحدد مكان المائه مجلد في المتغير pth سيجمع اسماء المجلدات التي تحتوي ملفات txt فقط في اداه ListBox
ويمكن تغيير...

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

للاضافة عن ما يقوم به اخى الكريم بدري

يمكنك ايضاً الاطلاع على الرابط التالى

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: بدري , DK-x


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 0 88 22-02-24, 11:47 AM
آخر رد: AHMED213
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 302 21-02-24, 11:44 PM
آخر رد: AHMED213
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 419 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 7 674 12-01-24, 07:31 PM
آخر رد: Kamil
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 204 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 395 09-01-24, 01:41 AM
آخر رد: Taha Okla
  معرفة عدد الاشهر خلال فترة زمنيةمعينة boofa2022 0 169 01-01-24, 01:18 PM
آخر رد: boofa2022
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 452 20-09-23, 01:42 PM
آخر رد: salam82
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 272 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  بعد تنصيب فيجوال بيسك 2005 اللغة العربية غير معرفة bassant 0 361 05-07-23, 02:02 PM
آخر رد: bassant

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


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