Ist ja auch wieder ein Property mit Zugriffsmethoden...
Also dann:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
GetFilesInDirectory('h:\', '*.mp3', Listbox1.Items, true);
end;
Wobei GetFilesInDirectory aus
diesem Beitrag von Arakis stammt.
Luckies Funktion scheint wohl Probleme mit der Rekursion zu haben, jedenfalls hat bei meinen Tests ein rekursives Suchen keine Dateien in Unterverzeichnissen gefunden, die eindeutig vorhanden waren. Arakis' Funktion arbeitet fehlerfrei, zumindest meinen Tests zufolge, obiger Code ist getestet und läuft so wie er ist, die Listbox wird mit den Dateien gefüllt.