Verwende mal folgenden Code:
Delphi-Quellcode:
//....
if FindFirst(Directory + '*.*', faAnyFile, SearchRec) = 0 then begin
If (SearchRec.Attr and faDirectory) <> 0) then begin
// Es handelt sich um ein Verzeichnis, also hier Code zum verarbeiten einstzen.
end;
end;
//....
Er sucht zwar zunächst nach allen Dateien, findet dann durch die zweite Bedingung nur Ordner, aber auch solche, die Schreibgeschützt- oder System-Attribut haben.