Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#56

Re: Rekursives durchsuchen und Letzten Dateizugriff auslesen

  Alt 16. Apr 2010, 16:02
Hallo,

if FindFirst(Directory+Mask,faAnyFile and not faDirectory, SR) = 0 then Woher hast du denn das and not ??
Das wird per or zusammengefasst

Nimm das mal komplette raus und rpprüfe in der repeat until,
ob die jeweiliges "Datei" ein Verzeichnis ist.

Delphi-Quellcode:
if if (SR.Attr and faDirectory) = faDirectory then
begin
  List.Add(XXX)
end;

Heiko
Heiko
  Mit Zitat antworten Zitat