Get Subdirectories of a specified Directory

When developing applications that need to operate on files and directories it is a common task to, for example, get the list of all sub-directories for a given directory.

GetSubDirectories

The GetSubDirectories fills a TStrings with all the subdirectories for a given directory:

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

Usage example 1:

GetSubDirectories('c:\', Memo1.Lines) ;

Usage example 2:

var
  sl : TStringList;
begin
  sl := TStringList.Create;
  try
    GetSubDirectories('c:\', sl) ;

    ShowMessage('Number of subfolders in "c:\": ' + IntToStr(sl.Count)) ;
  finally
    FreeAndNil(sl) ;
  end;
end;

Note: this function will not recurse subdirectories - it will only return a list of sub folder on the "first" level.

More on directories: Directory Related Delphi Functions and Procedures

Delphi tips navigator:
» Programmatically Fix the TabOrder property in your Delphi applications
« Dirty Delphi Localization: Hijack consts.pas to have Country / Language Specific Messages