‘ 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
Latest Entries
- kostenlose Vorlage von Kaufvertrag für Verkauf
- schnell und einfach online einen günstigen Flug finden
- iphone Schaden Display defekt! Kann ich es selber austauschen?
- günstige SMS ins Ausland versenden
- Hauswürste online kaufen. Bestellen und schon bringt es die Post.
- Wo ist sie hin unsere Kreativität, ist sie für immer verloren?!

No Comments
Leave a Comment
trackback address
You must log in to post a comment.