Frage Microsoft

gelöst VBS Script um bestimmte Dateien die älter als x Tage sind und im Namen -xyz- enthalten zu löschen

If InStr(1, Exclude, Datei.Name & "#", vbTextCompare) = 0 Then

If InStr(1, Datei.Name, "Bookingsave2011", vbTextCompare) <> 0 Then

Suche = LCase("Bookingsave2011")

...

If LCase(Left(Datei.Name, Len(Suche))) = Suche Then

Set fso = CreateObject("Scripting.FileSystemObject") 

Set WSHShell = WScript.CreateObject("WScript.Shell") 

'On Error Resume Next '## während der Testphase kontraproduktiv ##

' * hier eigenen Bedürfnissen anpassen * 

strOrdnerliste = "C:\Dokumente und Einstellungen\pweberling\Desktop\Ordnerliste.txt" 

strAusschlussliste = "C:\Dokumente und Einstellungen\pweberling\Desktop\Ausschluss.txt" 

Aufheben = 3 'Anzahl der Tage 

' * Ende der Anpassungen * 

Set objOrdnerliste = fso.OpenTextFile(strOrdnerliste) 

Verzeichnis = Split(objOrdnerliste.ReadAll, vbCrLF) 

objOrdnerliste.Close 

Set objAusschlussliste = fso.OpenTextFile(strAusschlussliste) 

Exclude = "#" & Replace(objAusschlussliste.ReadAll, vbCrLF, "#") & "#"

objAusschlussliste.Close 

Heute = Date() 

For n = 0 To UBound(Verzeichnis)  

    Set Ordner = fso.GetFolder(Verzeichnis(n)) 

    DeleteInFolder(Ordner) 

Next 

Sub DeleteInFolder(Ordner) 

Set Dateien = Ordner.Files 

' Alle Dateien in diesem Ordner abklappern 

For Each Datei In Dateien 

    If Datei.DateLastModified < (Heute - Aufheben) Then

        'nur Dateien, deren Name nicht wie ein Eintrag der Ausschlussliste endet

        '(für exakte Übereinstimmung - außer Groß-/Kleinschreibung - wäre

        '"#" & Datei.Name & "#"

        'zu verwenden)

        If InStr(1, Exclude, Datei.Name & "#", vbTextCompare) = 0 Then

            On Error Resume Next

            WScript.Echo "-" &Datei.DateLastModified&" "&Datei.Path 'Datei.Delete

            If Err And Err <> 70 Then MsgBox "Unerwarteter Fehler (Code=" & Err & ")", vbCritical: WScript.Quit 

            On Error Goto 0 

        End If 

    End If 

Next

'Unterordner abklappern, DeleteInFolder rekursiv aufrufen 

For Each Unter In Ordner.SubFolders

    'nur Ordner, deren Name nicht wie ein Eintrag der Ausschlussliste endet

    If InStr(1, Exclude, Unter.Name & "#", vbTextCompare) = 0 Then 

        DeleteInFolder(Unter)

        If (Unter.SubFolders.Count + Unter.Files.Count) = 0 Then WScript.Echo "--"&Unter.Path 'Unter.Delete

    End If

Next 

End Sub