Supportnet / Forum / WindowsXP
Dateien mit Schreibschutz im "Temp"-Ordner löschen
Frage
Hallo Leute,
mit folgendem VB-Script soll der Temp-Ordner beim Systemstart gelöscht werden. Das funktioniert auch, zumindest bei allen Dateien ohne Schreibschutzattribut.
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
'löscht alle Ordner
oFSO.deletefolder "d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp\*"
'löscht alle Dateien
Set oFolder = oFSO.GetFolder("d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp")
Set oFiles = oFolder.Files
For Each oFile In oFiles
oFSO.DeleteFile(oFile.Path)
Next
Set oFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
Wie müsste der Programmcode erweitert werden damit sämtliche Dateien (mit oder ohne Schreibschutz) ohne Rückfrage gelöscht werden?
mfg
reiner
Antwort 1 von birgitte
..ich glaube ich habe bereits selbst eine funktionierende Lösung gefunden, indem ich die Zeile:
in die For..Next-Schleife einfüge.
mfg
reiner
oFile.Attributes = oFile.Attributes And Not 1in die For..Next-Schleife einfüge.
For Each oFile In oFiles
oFile.Attributes = oFile.Attributes And Not 1
oFSO.DeleteFile(oFile.Path)
Nextmfg
reiner

