*smile*
das funktioniert schon mal
danke !
will aber gleichzeitig noch nach einer zweiten datei suchen, siehe unten....
dabei bekomm ich dann jedoch die fehlermeldung
"Listenindex überschreitet das Maximum(5)"
wie verhinder ich das ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
SL: TStringList;
begin
SL:=festplatten;
for i := 0 to SL.Count - 1 do
SearchFiles('test.txt',SL.Strings[i],true,ListBox1.Items);
SearchFiles('test2.txt',SL.Strings[i],true,ListBox1.Items);
end;