Nach Dateien suchen

[DGL-luke]

Hallo,

die Verwendung von TSearchRec ist eigentlich ganz einfach. Trotzdem hier ein Beispiel für dich.

Delphi-Quellcode:

function SearchMask(Root: string; Mask: string; Recursively: Boolean = false): TStrings;
var SRec: TSearchRec;
    FindPath: string;
begin
  Result := TStringList.Create;
  Root := IncludeTrailingPathDelimiter(Root) // abschließenden Backslash hinzufügen
  FindPath := Root + Mask;
  FindFirst(FindPath, faDirectory, SRec); //Suche initialisieren
  repeat
    if (SRec.Attr and faDirectory <> 0) and Recursively then
      Result.AddStrings(SearchMask(Root + SRec.FileName + '\' + Mask)) //rekursieren
    else
      Result.Add(Root + SRec.FileName); //Kompletten Dateipfad zum Ergebnis hinzufügen
  while FindNext(SRec) = 0; //FindeNext gibt 0 zurück wenn es keinen Fehler gibt
  FindClose(SRec); //Ende der Suche
end;

Du kannst das so in eine Listbox bringen:

  ListBox1.Items.AddStrings('C:\irgendwo\','Musik*'); Optional werden auch alle unterordner durchsucht.