blogMyTrash

‘ Schreibschutz bei einer Datei setzen und entfernen mit VB-Script

Set fs = CreateObject(“Scripting.FileSystemObject”)
datei = “C:\Beispiel.txt” ‘ Pfad zu der Datei, bei welcher der Schreibschutz verändert wird

SetSchreibschutz datei
MsgBox “Schreibschutz gesetzt bei ” & datei

DeleteSchreibschutz datei
MsgBox “Schreibschutz entfernt bei ” & datei

Sub SetSchreibschutz(dateiname)
If Not fs.FileExists(dateiname) Then Exit sub
Set file = fs.GetFile(dateiname)
file.Attributes = file.Attributes And Not (8+16+64+128+256+1024+2048) Or 1
‘Schreibschutz bei einer Datei setzen
End Sub

Sub DeleteSchreibschutz(dateiname)
If Not fs.FileExists(dateiname) Then Exit sub
Set file = fs.GetFile(dateiname)
file.Attributes = file.Attributes And Not (8+16+64+128+256+1024+2048) And Not 1
‘Schreibschutz bei einer Datei entfernen
End Sub