Ordnernamen ermitteln

[DeddyH]

Aus dem Kopf, daher ohne Gewähr:

Delphi-Quellcode:

procedure ListAllSubDirs(RootDir: string; DirList: TStrings);
const
  faNewAnyFileEx = $00017FFF;
var
  SearchRec: TSearchRec;
begin
  if not Assigned(DirList) then
    raise Exception.Create('DirList is not assigned');
  RootDir := IncludeTrailingPathDelimiter(RootDir);
  DirList.BeginUpdate;
  try
    DirList.Clear;
    if FindFirst(RootDir + '*.*', faNewAnyFileEx, SearchRec) = 0 then
      try
        repeat
          if ((SearchRec.Attr and faDirectory) = faDirectory) and
             (SearchRec.Name <> '.') and
             (SearchRec.Name <> '..') then
            DirList.Add(RootDir + SearchRec.Name);
        until FindNext(SearchRec) <> 0;
      finally
        SysUtils.FindClose(SearchRec);
      end;
  finally
    DirList.EndUpdate;
  end;
end;