[VBScript] Hilfe bei weiterentwicklung meines Skripts

philipber

Registrierter Benutzer

Beiträge: 3

Dabei seit: 16. August 2010

Montag, 16. August 2010, 16:02

Hilfe bei weiterentwicklung meines Skripts

Hallo,

Ich habe eigentlich sehr wenig Ahnung von VBS, habe mir aber jetzt diese Skript zum Löschen von Ordneren welche ein bestimmtes alter haben erstellt:

Zitat

strRootFolder = "D:\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set ofolder = fso.GetFolder(strRootFolder)

for each folder in ofolder.subfolders
KillFolderSub folder
next

Sub KillfolderSub(objFolder)

'Durchlaufe alle Unterverzeichnisse
for each subfolder in objfolder.subfolders
KillFolderSub subfolder
next

'Wenn Ordner vor mehr als xx Tagen erstellt wurde
if objFolder.datecreated < (Date - 10) then

'Alle Dateien im Ordner loeschen
for each file in objfolder.Files
fso.DeleteFile(file.Path)
next

'Ordner loeschen
fso.DeleteFolder(objFolder.Path)
end if

End Sub

Mein Problem ist nun dass das Skript abbricht bzw gar nicht ausgeführt wird wenn sich eine schreibgeschüzte Datei in besagtem Ordner befindet. Wie kann ich das Skript ändern sodass der Schreibschutz ignoriert wird und die Meldung "Zugriff verweigert" nicht mehr erscheint!?

Viele Grüße,
Philipber

Zum Seitenanfang

Mono

Registrierter Benutzer

Beiträge: 1 386

Dabei seit: 20. April 2009

Wohnort: Dresden

Hilfreich-Bewertungen: 60

Montag, 16. August 2010, 17:47

Diese Zeile änderst du:

fso.deletefile(file.path,true)

Der zweite Parameter erzwingt das Löschen schreibgeschützter Dateien.
Ansonsten musst du mit On Error Resume Next arbeiten, oder du prüfst jede Datei auf das Attribut und wenn Schreibschutz dabei ist, wird sie nicht gelöscht.

Gruß Mono