dateizugriff verweigert bei beliebigen Ordner-Zugriff

[DeddyH]

Hallo,

Du musst die Prüfung innerhalb der Schleife für jeden gefundenen Eintrag vornehmen.

Delphi-Quellcode:

repeat
  If (SearchRec.Attr And faDirectory = 0) then 
  begin
    //Verarbeitung nur für Dateien
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);