schreibgeschützten Verzeichnissen kopieren - TSearchRec

[scp]

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.