Delphi ile Bir Dizin Altındaki Klasörleri Listeleme

Delphi ile bir dizinin altındaki klasörleri almak için aşağıdaki kodu kullanabilirsiniz.

procedure GetSubDirectories(const directory : string; list : TStrings);
var
   sr : TSearchRec;
 begin
   try
     if FindFirst(directory + '*.*', faDirectory, sr) < 0 then
       Exit
     else
     repeat
       if ((sr.Attr and faDirectory <> 0) AND (sr.Name <> '.') AND (sr.Name <> '..')) then
         List.Add(sr.Name) ;
     until FindNext(sr) <> 0;
   finally
     SysUtils.FindClose(sr) ;
   end;
end;

Kullanımı oldukça basittir.

strlist := TStringList.Create;
GetSubDirectories('C:\Windows\', strlist);
ListBox1.Items := strlist;

şeklinde kullanabilirsiniz…