Schreibschutz von Dateien entfernen

[AnyKey]

Hi,

weiß jemand wie man bei einer Datei oder einem Ordner den schreibschutz aufheben kann? Ich möchte mehrere Dateien/Ordner verschieben und wenn die Datei/Ordner schreibgeschützt ist, kann ich das ja wahrschenilich vergessen. Ich muss diese Dateien/Ordner aber trotzdem verschieben können, also zum Verschieben schreibschutz weg und danach wieder auf die vorherigen einstellungen bringen (schreibschutz wieder setzen).

Hoffe mir kann jemand helfen!

Gruß
AnyKey

[DeddyH]

Auslesen kannst Du die Dateiattribute z.B. mit FileGetAttr, Setzen dementsprechend mit FileSetAttr. Das betrifft aber nur die Dateiattribute, nicht die Berechtigungen.

[AnyKey]

Hm, also wie gesagt wenn eine Datei schreibgeschützt ist müsste ich diesen schreibschutz ja vor dem verschieben aufheben und ihn hinterher auch wieder setzen. Wenn das mit den Funktionen geht wäre das echt super, ansonsten wäre ich für andere Vorschläge offen :)

Gruß
AnyKey

[DeddyH]

Delphi-Quellcode:

var OldAttr, ErrCode: integer;
begin
  OldAttr := FileGetAttr(Dateiname);
  ErrCode := FileSetAttr(Dateiname,0);
  if ErrCode = 0 then
    begin
      //Datei verarbeiten
      FileSetAttr(Dateiname,OldAttr);
    end
  {else
     ErrorCode auswerten}
end;

So in der Art würde ich das machen.

[himitsu]

Komisch, ich kann hier schreibgeschützte Dateien problemlos verschieben.

Der Schreibschutz ist einfach nur ein Flag (Bit) in den Dateiinformationen, welches von den verarbeiteten Programmen ausgewertet wird, aber nicht ausgewertet werden muß.

[AnyKey]

Super!

Dankeschön, werd ich bei gelegenheit mal ausprobieren, melde mich dann wieder ;)

Gruß
AnyKey

[DeddyH]

Zitat:

Zitat von himitsu

Komisch, ich kann hier schreibgeschützte Dateien problemlos verschieben.

Auch, wenn im Zielordner bereits gleichnamige Dateien mit Schreibschutz vorhanden sind?

[himitsu]

Zitat:

Zitat von DeddyH

Auch, wenn im Zielordner bereits gleichnamige Dateien mit Schreibschutz vorhanden sind?

Notfalls auch das.
Es kommt nur darauf an wie und mit welchen Optionen kopiert/verschoben wird.
(das WIE, welches hier noch nichtmal erwähnt wurde)

[AnyKey]

Hi, sorry das wie hab ich wohl vergessen ^^ also ich hatte eigentlich vor mit den WinAPI befehlen die Dateien zu verschieben, außer natürlich da hätte noch jemand einen besseren/schnelleren vorschlag :)

Gruß
AnyKey

[DeddyH]

Mit welchen, das ist ja die Frage.

[himitsu]

MoveFile (RenameFile)
MoveFileEx
MoveFileWithProgress
MoveFileTransacted
SHFileOperation
...

PS: SHFileOperation wird vom Explorer genutzt und der kann Schreibgeschützte Dateien verschieben/kopieren/überschreiben.

[AnyKey]

Ok, vielen Dank :) ich werds mal ausprobieren. Falls doch noch irgendwelche Probleme auftauchen meld ich mich noch mal.

Danke für eure hilfe ;)

Gruß
AnyKey

[Berni68]

Ich hatte neulich auch ein Problem in dieser Richtung:
Dateien verschieben über copy und delete (musste an dieser Stelle so sein)
lief auf xp korrekt.
Der gleiche Code unter win7 ging nicht.
Erst nachdem das Attribut 'schreibgeschützt' vor löschen entfernt wurde hat es wieder funktioniert.