Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Hallo Ihr Cracks, ich bräuchte da mal kurz eure Hilfe. Und zwar hab ich ein VB6 Programm, mit dem ich den Schreibschutz eines Verzeichnisses aufheben möchte. Ich hab da auch schon was gefunden: --------------------------------------------------------------- Public Function SchreibschutzEntfernen(ByVal _ sFilename As String) As Boolean On Local Error Resume Next Attr = GetAttr(sFilename) If Err <> 0 Then ' Datei nicht gefunden SchreibschutzEntfernen = False Else Attr = (Attr And Not vbReadOnly) SetAttr sFilename, Attr DoEvents ' Prüfen, ob Schreibschutz entfernt Attr = GetAttr(sFilename) SchreibschutzEntfernen = Not (Attr And vbReadOnly) End If On Local Error GoTo 0 End Function ---------------------------------------------------- Das funktioniert auch alles wunderbar, jedoch nur mit einer einzelnen Datei. Ich habe jetzt einen Unterordner mit mehreren Unterordner und Dateien. Ich möchte bei allem (Ordner und Dateien) was in diesem Ordner liegen, den Schreibschutz aufheben. Gibt's da irgendwas alá *.* ?? Dankeschön schon mal im Voraus. MfG

Weiss wirklich niemand was, ich bin hier am verzweifeln...

Gruß

naja, du musst die Funktion einfach in einer Schleife aufrufen und das Verzeichnis durchgehen. Mit Unterverzeichnissen wir etwas kompliziert.
Lade dir Microsoft doch mal Visual Basic .NET 2008 Express runter.
Da ging das, glaube ich, etwas einfacher.

Alles klar, schaus mir mal an.
Dankeschön.

• Windows Home / Ordner Schreibschutz entfernen
• wie kann ich unter xp datei-schreibschutz entfernen ?
• Schreibschutz entfernen
• Probleme mit True Image 11 und Schreibschutz
• Schreibschutz entfenen