Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Betriebssysteme (https://www.delphipraxis.net/27-betriebssysteme/)
-   -   Schreibschutz (https://www.delphipraxis.net/11986-schreibschutz.html)

Christian_1980 18. Nov 2003 12:22


Schreibschutz
 
Hallo Ihr Lieben !

wisst ihr, wie ich den Schreibschutz aller Dateien in einem Ordner ( inklusive der Dateien in den Unterverzeichnissen ) im Explorer auf einmal aufheben kann? ich will den schreibschutz nicht bei allen 20000 dateien von hand ändern.

Könnt ihr mir helfen?

Vielen Dank schonmal,

Christian

Luckie 18. Nov 2003 12:25

Re: Schreibschutz
 
Welches Betriebssystem? Wenn du unter 2000 / XP einen Ordner markierst und dort den Schreibschutz entfernst, frag er dich ob er ihn auch bei bei allen anderen Dateien in den Unterordnern entfernen soll. Ansonsten Ordner markieren, auf Suche klicken "*." eingeben, alle dateien suchen lassen und im Suchergebnis dann alle markieren und den Eigenschaftsdialog aufrufen.

Christian_1980 18. Nov 2003 12:34

Re: Schreibschutz
 
Hi Lucky !!

Danke für deine schnelle Antwort. Ich habe W2K - da geht das nicht wie unter XP - weisst du ja. Deine Lösung ist ok. ich hab gerade aber auch noch eine andere Möglichkeit gefunden. Habs jetzt folgendermaßen gemacht:

In der Dos-Eingabeaufforderung hab ich

attrib -r *.* /S

in meinem root-verzeichnis eingegeben. So ging es.

Danke vielmals,

Christian

HomerGER 18. Nov 2003 12:50

Re: Schreibschutz
 
ich weis nicht ob dir das besser hilft

als erstes alle ordner/dateien auslesen

und dann über eine schleife

attribute_w := FileGetAttr(file_path_s);

//Ist datei schreibgeschützt?
if ((attribute_w and faReadOnly) = 1) then begin
//Dann schreibschutz löschen
FileSetAttr(file_path_s, FileGetAttr(file_path_s) xor faReadOnly);
end;

Christian_1980 18. Nov 2003 13:07

Re: Schreibschutz
 
Ja, das wäre wohl auch eine möglichkeit.

ich wollte allerdings kein extra prog dafür schreiben. Danke :thuimb:

Luckie 18. Nov 2003 13:09

Re: Schreibschutz
 
Zitat:

Zitat von Christian_1980
Hi Lucky !!

Wer ist Lucky? :shock:
Zitat:

Danke für deine schnelle Antwort. Ich habe W2K - da geht das nicht wie unter XP - weisst du ja.
Doch gerade unter 2000 geht es so. Habe ich ja selber. Bei XP (Home) bin ich mir nicht sicher.

Christian_1980 18. Nov 2003 13:40

Re: Schreibschutz
 
Ähm :cyclops:


Ok LUCKIE - ich werd in Zukunft genauer lesen :zwinker:

:cheers:

HomerGER 18. Nov 2003 14:34

Re: Schreibschutz
 
Zitat:

Zitat von Luckie
Doch gerade unter 2000 geht es so. Habe ich ja selber. Bei XP (Home) bin ich mir nicht sicher.

Was ist Win XP wenn nicht Win 2000 ?


Zitat:

Zitat von Christian_1980
ich wollte allerdings kein extra prog dafür schreiben. Danke

dann kenn ich leider nur "5 gegen Willi" also von Hand :coder:


sorry verlaufen, hab nicht gelesen das wir im Windows 9x / ME / 2000 / XP sind :gruebel:

Brüggendiek 18. Nov 2003 22:51

Re: Schreibschutz
 
Hallo Christian!

Schau mal hier rein, da gibt es eine Freeware-Lösung dafür. Die klinkt sich in des Kontextmenü des Explorers ein und klappt wunderbar.

Das Ganze kann übrigens noch einiges mehr als Du willt und ist deshalb sehr zu empfehlen!

Gruß

Dietmar Brüggendiek

Christian_1980 19. Nov 2003 07:06

Re: Schreibschutz
 
Hi Ho !

Das Kontextmenü für den Explorer werde ich mir mal ansehen. Ansonsten: ich habe die Lösung doch schon :P

s.o.

:zwinker: Chris


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz