البحث في عدة أقراص ؟؟؟

[أبو محسن]

بسم الله
السلام عليكم

أحببت عمل برنامج يقوم بالبحث عن كل ملف ذات أمتداد txt في الكمبيوتر...
تم عمل ذلك ولكن في مكان مُحدد، أي لا يمكن البحث في عدة أقراص !!!

الكود المُستخدم هو:


driv_c = "C:\\";
driv_e = "E:\\";

find = File.Find(driv_c, "*.txt", true, false, nil, nil);

for i,x in pairs(find) do
StatusDlg.Show(MB_ICONNONE, false)
StatusDlg.SetStatusText(x)
split = String.SplitPath(x)
ListBox.AddItem("ListBox1", split.Filename..split.Extension, "");
end
StatusDlg.Hide()


كيف أجعله ينتقل من المتغير الأول driv_c إلى المتغير الثاني driv_e
ماذا لو كان لدي C , D

هل يمكن عمل ذلك !!

[ثامر أبو بلقيس]

من المؤكد أنه توجد حلول أحسن
لكن جرب نتيجة البحث في القرصين
driv_c = "C:\\";
find = File.Find(driv_c , "*.txt", true, false, nil, nil);
for i,x in pairs(find) do
StatusDlg.Show(MB_ICONNONE, false)
StatusDlg.SetStatusText(x)
split = String.SplitPath(x)
ListBox.AddItem("ListBox1", split.Filename..split.Extension, "");
end
driv_e = "E:\\";
find2 = File.Find(driv_e , "*.txt", true, false, nil, nil);
for i,x in pairs(find2) do
StatusDlg.Show(MB_ICONNONE, false)
StatusDlg.SetStatusText(x)
split = String.SplitPath(x)
ListBox.AddItem("ListBox1", split.Filename..split.Extension, "");
end
StatusDlg.Hide()

[أبو محسن]

جزاك الله خير أستاذ ثامر
التفكير أهم من التطبيق :abc_065:

لكن ماذا لو طفح الكيل عند المستخدم وأراد إيقاف عملية البحث؟؟ :abc_085:
كيف السبيل إلى ذلك...

[Haitham.2012]

جزاك الله خير أستاذ ثامر
التفكير أهم من التطبيق :abc_065:

لكن ماذا لو طفح الكيل عند المستخدم وأراد إيقاف عملية البحث؟؟ :abc_085:
كيف السبيل إلى ذلك...

يمكن إيقاف دالة التكرار بإستخدام الامر break

ولكن هناك مشكله .. اذا اردت ايقاف دالة التكرار من قبل المستخدم فهذا معناه انه يجب على المستخدم الضغط على زر معين .. ولكنه لن يستطيع ذلك لان البرنامج لا يستجيب لاي اوامر خارجيه في حالة تنفيذ دالة تكرار .. وتستخدم عادة break لإيقاف دالة التكرار في حالة تحقق شرط معين وبالتالي يتم الايقاف بدون حاجة المستخدم لفعل ذلك

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

بالتوفيق

[أبو محسن]

نعم سأتابع الملف

[ثامر أبو بلقيس]

السلام عليكم
موفقين إخواني سأترك إنشغال كيفية توقيف StatusDlg