alle dirs eines laufwerks auflisten

[ErazerZ]

Delphi-Quellcode:

var
  SLDirs: TStringList;
  SearchRec: TSearchRec;
  i: integer;
begin             
  SLDirs := TStringList.Create;
  if FindFirst('c:\*.*', faAnyFile, SearchRec) = 0 then 
  begin
    repeat
      if ((SearchRec.Attr and faDirectory) <> 0) then
        SLDirs.Add(SearchRec.Name);
    until (FindNext(SearchRec) <> 0); 
  end;
  for i := 0 to sldirs.count -1 do
    ShowMessage(Format('[%d/%d] %s', [i +1, SLDirs.Count, SLDirs[i]]));  
  SLDirs.Free;