ذخيره نام فالهاي موجود در يك آدرس

[MozenAbasi]

:لبخندساده:سلام دوستان ، خدا قوت

مي خواستم بدونم كه چه طوري ميشه نام فايل هاي موجود در يك آدرس رو ( مثلا محتويات يك CD) رو در يك Memo ليست كرد در ضمن آدرس مورد نظر توسط كاربر تعيين مي گردد.

[Felony]

توسط توابع FindFirst و FindNext ، نمونه کد زیر رو ببینید :


var
s:tsearchrec;
a:string;
begin
selectdirectory('Please select a directory :','',a);
if findfirst(a+'*.*',faanyfile,s)=0 then
repeat
listbox1.Items.Add(a+s.Name);
until findnext(s)<>0;
findclose(s);
end;

[MozenAbasi]

اگه ميشه در مورد اين خط از قطعه كد بالا بيشتر توضيح بديد ، چون دستور selectdirectory رو نميشناسه .


(selectdirectory('Please select a directory :','',a

[Felony]

یونیت FileCtrl رو اضافه کنید .