Alle verzeichnisse ermittlen

[Meflin]

Hi,
ich suche nen algo, (möglichst schnelle variante) der alle verzeichnisse auf einem laufwerk ermittelt.

*MFG*

[Alexander]

Such hier einfahc mal FindFirst FindNext TSearcchRec
Da findest du bestimmt was ;-)

[Meflin]

das zweifellos aber eigentlich such ich mehr so nach einer fertiglösung

[SirThornberry]

hab die Komponente schon zig mal gepostet aber mal ne aktuelle Version im Anhang

Aufrufbeispiel um nur Verzeichnisse zu listen

Delphi-Quellcode:

procedure TForm1.fOnAddFile(const Filename: String; var DoAdd: Boolean);
begin
  DoAdd := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var lister: TListDirectory;
    destList: TStringlist;
    FSize: Cardinal;
begin
  destlist := TStringList.Create;
  lister := TListDirectory.Create(Self);
  lister.OnAddFile := fOnAddFile;
  lister.Add('f:\', destlist, fSize);
  Memo1.Lines.AddStrings(destlist); //oder was auch immer du mitm ergebnis machen willst
  lister.Free;
  destlist.Free;
end;

[Meflin]

thx

[Alexander]

Da gibt es sicherlich Fertiglösungen oder du suchst mal auf swissdelphicenter.ch :roll: