blogMyTrash

‘ Mit VB-Script Schreibschutz einer Datei entfernen

Set fs = CreateObject(“Scripting.FileSystemObject”)
datei = “C:\Beispiel.txt” ‘ Pfad zu einer existierenden Datei mit Schreibschutz

DeleteSchreibschutz datei ‘ Subroutine DeleteSchreibschutz aufrufen und Dateipfad übergeben
MsgBox “Schreibschutz entfernt bei ” & datei

Sub DeleteSchreibschutz(dateiname)
If Not fs.FileExists(dateiname) Then
MsgBox “Datei nicht gefunden!”
wscript.quit
End If
Set file = fs.GetFile(dateiname)
file.Attributes = file.Attributes And Not (8+16+64+128+256+1024+2048) And Not 1 ‘ Schreibschutz der Datei entfernen
End Sub