لیست فولدرهای درایو C

[Developer Programmer]

دستور زیر در زبان #C


foreach (string s in System.IO.Directory.GetDirectories("c:\\"))
listBox1.Items.Add( s );
اسامی فولدرهای درایو C رو لیست میکنه. ( وارد Sub folder ها نمیشه)


میخوام معادل این دستور رو توی دلفی پیاده کنم.چند تا سورس رو در مورد FindFirst نگاه کردم. اما همگی اسامی فایلهای موجود در فولدرها رو پیدا میکردن:افسرده:

[vcldeveloper]

procedure FindDirectories(Path: string; var Directories: TStrings);
var
F : TSearchRec;
begin
if not Assigned(Directories) then
raise Exception.Create('Invalid list object');

Path := IncludeTrailingPathDelimiter(Path);
if Pos('*.*', Path) = 0 then
Path := Path + '*.*';

Directories.Clear;
if FindFirst(Path, faDirectory, F) = 0 then
repeat
if (F.Attr AND faDirectory) = faDirectory then
Directories.Add(F.Name);
until FindNext(F) <> 0;
end;