سلام ..........
كيف يمكنني عمل برنامج يقوم باعطاء أسماء جميع الفهارس الموجودة في السواقة d مثلا و جميع الفهارس الفرعية فيها إلى اخر فرع
وليس البحث عن فهرس معين أو ملف معين في هذا القرص
مثلا تحوي السواقة d على الجلد a و b وبداخ المجلد a يوجد a1و هكذا فيعرض لي في ال memo النتيجة كالتالي
a
b
--
a1
أرجو ألا يكون الموضوع مكرر
شكرا.......
1 2 me and u r alone
1 2 u a i a a
بسم الله الرحمن الرحيم
أخي العزيز! تستطيع في البداية استخدام عنصر directorylistbox, وبتعيين قيمة الخاصة directory له على النحو التالي:
directroylistbox1.directory:='d:\';
ستظهر في العنصر مجلدات المستوى الأول للسواقة d...
بعد ذلك تستطيع تعريف إجراء كالتالي:
procedure naviagate_dir(dir:string)
var search_rec:Tsearchrec;
begin
dir:=dir + '\';
if findfirst(dir+'*.*',fadirectory,search_rec)=0 then
repeat
listbox1.items.add(search_rec.name);
navigate_dir(dir+search_rec.name);
chdir('..');
unitl findnext(search_rec)<>0;
findclose(search_rec);
end;المال في الغربة وطن والفقر في الوطن غربة
هذا الموضوع مغلق.