schreibgeschützten Verzeichnissen kopieren - TSearchRec

[eddy]

Hallo Leute,

ich ein Problem beim Kopieren schreibgeschützter Verzeichnisse.

Mein Datensicherungsprogramm funktioniert soweit ganz gut, nur Verzeichnisse, die das Attribut schreibgeschützt tragen, werden von FindFirst bzw. FindNext gar nicht gefunden.

Weiß jemand Rat?

mfg
eddy

[nailor]

Was für Parameter gibts du FindFirst mit?

[eddy]

Hallo Nailor,

Code:

....
if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then begin
....

und Directory enthält dann z.B. D:\Memo\Test\

mfg
eddy

[eddy]

Kleine Korrektur nötig:

Attribut S steht für System (nicht für schreibgeschützt).

Also: Die mit dem Attribut System versehenen Verzeichnisse werden von FindFirst / FindNext nicht gefunden.

Habe mich im Einzelschrittmodus durchgetippt, die Verzeichnisse werden nicht mal "gesehen" von FindFirst / FindNext.

mfg
eddy

[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.

[eddy]

Hallo scp,

vielen Dank, genau das hat geholfen.

mfg
eddy