چگونه نام فولدر را بدست آوریم ؟

[medooo]

چگونه می توان نامه پوشه ها را با دلفی بدست آورد ؟

مثلاً در مسیر C:\Users\ چه پوشه هایی وجود دارد ؟

می خواهم وقتی روی باتن کلیک کردم فقط نام پوشه ها در لیست باکس اضافه شود .
توجه : می خواهم فقط نام پوشه ها ذخیره شود و نمی خواهم که مسیر پوشه های داخلی مشخص شود )

با تشکر - لطفاً راهنمایی فرمایید .

[mamama1]

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := faDirectory;
ChDir('C:\Users');
if FindFirst('*.*', FileAttrs, sr) = 0 then
begin
ListBox1.Clear;
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
ListBox1.Items.Add(sr.Name);
end;
until (FindNext(sr) <> 0);
FindClose(sr);
end;
end;

[hadisalahi2]

Jedi یک کامپوننت داره واسه همین کار
هم مسیر کامل رو برمیگردونه و هم خود اسم پوشه رو

[medooo]

آقای گلد چرا اینقدر به خودت فشار میاری سرچ کردم ولی اون چیزی رو که من می خواستم نبود ولی بالاخره بعد کشت و گذار تو کتابو نت به این کد رسیدم که به خوبی داره بهم جواب می ده

uses
IOUtils, FileCtrl


procedure TForm1.Button1Click(Sender: TObject);
var
dir:string;
begin
for dir in TDirectory.GetDirectories('c:\','*',TSearchOption. soAllDirectories) do
ListBox1.Items.Add(ExtractFileName(dir));
end;

[یوسف زالی]

آقای گلد چرا اینقدر به خودت فشار میاری سرچ کردم ولی اون چیزی رو که من می خواستم نبود ولی بالاخره بعد کشت و گذار تو کتابو نت به این کد رسیدم که به خوبی داره بهم جواب می ده

این چه لحنیه؟!
شما که بعد از گشت و گذار کدت رو پیدا کردی، بهتر نبود قبل از ایجاد تاپیک، گشت و گذارت رو می کردی؟

[hadisalahi2]

بعضی ها لطف زیادی رو ، خیلی که بشه ، میزارن روی حساب وظیفه
شما زیاد خوت رو ناراحت نکن یوسی