Hi!
Herzlich willkommen in der DP.
Hier mal ein Beispielaufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var files: TStringlist;
begin
files:=TStringlist.Create;
Getfiles('c:\', files,false);
Listbox1.Items:=files;
files.Free;
end;
Es wird in C:\ jetzt nach allen Dateien gesucht, die Ergebnisse in files gespeichert, Unterordner werden nicht durchsucht. Dann werden der Listbox die Ergebnisse zugewiesen.
Willst du nur nach *.htm suchen, musst du deinen geposteten Code verändern, an der entsprechenden Stelle steht ein Kommentar.
Ciao Frederic