Danke für den Hinweis.
Ich habe es jetzt mal beim FindFirst schon die Suche auf '*.csv' eingeschränkt.
Damit hat sich das doch schon erledigt, oder?
Sieht es jetzt besser aus?
Delphi-Quellcode:
if FindFirst(ExtractFilePath(ParamStr(0))+'*.csv',faAnyFile,Anlage)=0
then
try
begin
//alle Dateien auslesen
repeat
if Anlage.Attr AND faDirectory<>faDirectory
then
DateiListe.Add(Anlage.Name);
until FindNext(Anlage)<>0;
usw.usf.