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 von himitsu:

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

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

[himitsu]

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.