السلام عليكم
هذا الكود يقوم ياليحث في جميع الجهاز
المشكله انه عندما يصل الي مجلد محمي يعطي رسالة خطا
كيف التجاهل الخطا واتابع البحث
VB.NET vb2005
وشكرا
Dim allDrives As DriveInfo() = DriveInfo.GetDrives() For Each d As DriveInfo In allDrives If d.IsReady = True Then Dim file As String = "" For Each file In Directory.GetFiles(d.Name, "*.doc", SearchOption.AllDirectories) MsgBox(file) Next
تم تعديل هذه المشاركة بواسطة طاااير في 18 يونيو 2007 في 15:15
يوجد موضوع قديم لي يتعلق بهذا الموضوع يمكنك الاستفادة منه إن أحببت كلاس: البحث عن ملفات أو مجلدات أو كليهما إذا أردت حمل الوضع النهائي له من المشاركة رقم 6
تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 18 يونيو 2007 في 15:25
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
اقتباسكيف التجاهل الخطا واتابع البحث
استخدم العبارة..
On Error Resume Next
لتخطي الاخطاء عند حدوثها.....
بالتوفيق..
((رحلة العودة الى العالم الافتراضي قد بدأت))
كلمة الـعـرب كتب:استخدم العبارة..On Error Resume Nextلتخطي الاخطاء عند حدوثها.....
بالتوفيق..
أخ كلمة العرب في الدوت نيت لم نعد نستخدم هذه العبارة لتجاوز الأخطاء انظر الموضوع الاستثناءات Exceptions عودة للأساسيات - اصطياد الأخطاء ومعالجتها لمعرفة الطريقة الصحيحة لذلك
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
اخي الكريم محمد شكرا لك على الكلاس الرائع وساقوم بتجربته في اقرب وقت
لكن هل من حل سريع على الكود الحالي
اخي كلمة الـعـرب في حالة استخدام On Error Resume Next
لا تظهر النتائج بالشكل المطلوب
وشكرا لك على محاوله المساعدة
مع الأسف لايحضرني تصحيح الكود حاليا
ولكن في الإجراء الذي يقوم بالبحث في الكلاس الخاص بي استخدمت حلقة Try ... Catch لاصطياد الأخطاء وجعلت الدالة تستخدم نفسها بشكل دائري للبحث ضمن المجلدات الفرعية يمكنك عمل نفس الطريقة تقريبا لحل مشكلتك
تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 18 يونيو 2007 في 22:23
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
الله يعين
مشكور اخوي
هذا الموضوع مغلق.