Zitat von
Andidreas:
kannst ja einfach mal folgendes probieren nach FindNext:
Delphi-Quellcode:
error := FindNext(sr);
If error <> 0 Then
Begin
ShowMessage('Fehler beim Lesen der Datei: ' + sr.Name);
End;
habe ich mal gemacht, außer nach dem letzten file kommt keine Fehlermeldung!