Dateien Löschen als Dienst mit Filterung

' * hier eigenen Bedürfnissen anpassen *  
Ordnerliste =    "D:\Ordnerliste.txt" 'Liste der zu bearbeitenden Ordner; 1 Ordner je Zeile  
Dateitypen =     "D:\Typen.txt" 'Liste der Dateitype; 1 Typ je Zeile  
Alter =          90 'Alter der zu löschenden Dateien in Tagen  
ErstellungsTag = 1 'Dateien, die an diesem Tag des Monats erstellt wurden, nicht löschen  
' * Ende der Anpassungen *  


Set fso = CreateObject("Scripting.FileSystemObject")  
Verzeichnis = Split(fso.OpenTextFile(Ordnerliste).ReadAll, vbCrLF) 'Ordnerliste einlesen  
Include = LCase("#" & Replace(fso.OpenTextFile(Dateitypen).ReadAll, vbCrLF, "#") & "#") 'Dateitypen einlesen  

Heute = Date()

For n = 0 To UBound(Verzeichnis) 'alle Ordner durchgehen  
    Set Ordner = fso.GetFolder(Verzeichnis(n))
    DeleteInFolder(Ordner) 'Lösch-Unterprogramm für Ordner aufrufen  
Next

Sub DeleteInFolder(Ordner)
Set Dateien = Ordner.Files
For Each Datei In Dateien 'alle Dateien in diesem Ordner durchgehen  
    If Datei.DateLastModified < (Heute - Alter) Then 'Datei ist alt genug  
        If InStr(Include, "#" & LCase(fso.GetExtensionName(Datei.Name)) & "#") > 0 Then 'Datei hat passenden Typ  
            If Day(Datei.DateCreated) <> ErstellungsTag Then 'nicht am festgelegten Tag eines Monats erstellt  
                On Error Resume Next
                'Datei.Delete 'Datei löschen  
                WScript.Echo Datei.DateLastModified & "_" & Datei.Path 'zu löschende Datei nur anzeigen  
                'Falls Fehler "permission denied" aufgetreten, ignorieren, ansonsten Script abbrechen  
                If Err And Err <> 70 Then MsgBox "Fehler (Code=" & Err & ")", vbCritical: WScript.Quit  
                On Error Goto 0
            End If
        End If
    End If
Next

For Each Unter In Ordner.SubFolders 'alle Unterordner durchgehen  
    DeleteInFolder(Unter) 'DeleteInFolder rekursiv aufrufen  
    If (Unter.SubFolders.Count + Unter.Files.Count) = 0 Then 'Unterverzeichnis leer  
        'If Unter.DateLastModified < (Heute - Alter) Then Unter.Delete 'löschen, wenn Ordner alt genug  
        If Unter.DateLastModified < (Heute - Alter) Then WScript.Echo "#" & Unter.DateLastModified & "_" & Unter.Path 'zu löschenden Ordner nur anzeigen  
    End If
Next
End Sub

bak
tmp
log

cscript "D:\Scriptname.vbs"

function Cleanup-Folders {
    param(
        [parameter(Mandatory=$true)][ValidateNotNullOrEmpty()][string[]]$folders,
        [int]$olderthandays,
        [string]$filepattern = "*.*",  
        [switch]$RemoveEmptyDirs,
        [switch]$Recurse,
        [ValidateRange(1,31)][int]$keepfileswithdayofmonth,
        [string]$logfile
    )

    process{
        
        foreach($folder in $folders){
            if (Test-Path $folder) {
                # process files -----------
                if ($Recurse){
                    $files = gci $folder -Recurse | ?{!$_.PSIsContainer}
                }else{
                    $files = gci $folder | ?{!$_.PSIsContainer}
                }
                if ($olderthandays -gt 0){
                    $files = $files | ?{$_.Name -like $filepattern -and $_.LastWriteTime -lt (get-date).AddDays(-$olderthandays)} 
                }
                if ($keepfileswithdayofmonth -gt 0){
                    $files = $files | ?{(get-date $_.LastWriteTime).Day -ne $keepfileswithdayofmonth}
                }
                $files = $files | ?{$_.Name -like $filepattern}
                foreach($file in $files){
                    remove-item $file.FullName -Force -EA SilentlyContinue -EV err
                    if ($err.Count -gt 0){
                        write-host "Beim Löschen von Ordner: '$($file.Fullname)' ist ein Fehler aufgetreten: $($err.ErrorDetails.Message)" -BackgroundColor Red -ForegroundColor Yellow  
                        if ($logfile){echo "ACHTUNG Fehler: $($err.ErrorDetails.Message)" | out-file $logfile -Force -Append}  
                    }else{
                        write-host "Lösche Datei: '$($file.Fullname)'" -ForegroundColor Green  
                        if($logfile){echo "$(get-date -Format "dd.MM.yyyy hh:mm:ss") - Datei gelöscht: $($file.FullName)" | out-file $logfile -Force -Append}  
                    }
                }
                
                # process empty folders ----
                if($RemoveEmptyDirs){
                    if ($Recurse){
                        $allSubfolders = gci $folder -Recurse | ?{$_.PSIsContainer}
                    }else{
                        $allSubfolders = gci $folder | ?{$_.PSIsContainer}
                    }
                    $allSubfolders = $allSubfolders | ?{$_.GetDirectories().Count -eq 0 -and $_.GetFiles().Count -eq 0}
                    foreach($f in $allSubfolders){
                        remove-item $f.FullName -Force -EA SilentlyContinue -EV err
                        if ($err.Count -gt 0){
                            write-host "Beim Löschen von Ordner: '$($f.Fullname)' ist ein Fehler aufgetreten: $($err.ErrorDetails.Message)" -BackgroundColor Red -ForegroundColor Yellow  
                            if ($logfile){echo "ACHTUNG Fehler: $($err.ErrorDetails.Message)" | out-file $logfile -Force -Append}  
                        }else{
                            write-host "Lösche Ordner: '$($f.Fullname)'" -ForegroundColor Green  
                            if($logfile){echo "$(get-date -Format "dd.MM.yyyy hh:mm:ss") - Leerer Ordner gelöscht: $($f.FullName)" | out-file $logfile -Force -Append}  
                        }
                    } 
                } 
            }
        }
    }
}

Cleanup-Folders -folders "C:\ordner1","d:\Ordner2","E:\ordner3" -olderthandays 90 -filepattern "*.bak" -Recurse -RemoveEmptyDirs -keepfileswithdayofmonth 1 -logfile "C:\logfile.txt"