Jump to content


This is a ready-only archive of the InstallSite Forum. You cannot post any new content here. / Dies ist ein Archiv des InstallSite Forums. Hier können keine neuen Beiträge veröffentlicht werden.
Photo

Schreibschutz per Skript entfernen


2 replies to this topic

Lehrling1988

Lehrling1988
  • Full Members
  • 49 posts

Posted 04 June 2009 - 12:12

Hallo alle zusammen,

ich muss wissen wie der Schreibschutz von einem Ordner und den Daten darin entfernt werden kann. Also mit welcher Funktion das geht.

Ich hoffe ihr könnt mir helfen.

gr.
Robert
Man lernt nie aus...darum bin ich immer noch ein Lehrling und werde es immer bleiben...

Maharani

Maharani
  • Full Members
  • 50 posts

Posted 04 June 2009 - 13:05

Fuer Dateien in einem bestimmten Ordner habe ich bei mir folgende Funktion:

CODE

function SetAllFilesWriteable(szDir)
   number nResult;
   string szFile;
begin
   nResult = FindAllFiles(szDir, "*.*", szFile, RESET);
   while (nResult = 0)
       SetFileInfo(szFile, FILE_ATTRIBUTE, FILE_ATTR_NORMAL, "");  
       nResult = FindAllFiles(szDir, "*.*", szFile, CONTINUE);
   endwhile;
   nResult = FindAllFiles(szDir, "*.*", szFile, CANCEL);    
end;


Für Ordner und ggf. rekursive Suche muesstest Du das Ganze noch anpassen.

Hoffe, das hilft trotzdem.

Gruss
Rita


Lehrling1988

Lehrling1988
  • Full Members
  • 49 posts

Posted 05 June 2009 - 07:15

Hallo,

das ist genau das was ich gesucht habe, super, besten Dank.
Die Funktion enrfernt sogar den schriebschutz von allen Dateien in den Unterordnern smile.gif

Danke nochmal.

gr.
Robert
Man lernt nie aus...darum bin ich immer noch ein Lehrling und werde es immer bleiben...