Rekursives Löschen von Verzeichnissen wenn Dateien bestimmtes Alter erreicht haben

For Each Unter In Ordner.SubFolders
	L.WriteLine "## " & Heute - Int(Unter.DateCreated) & vbTab & Unter.Created & " """ & Unter.Path & """ ##"  
	If Unter.DateCreated <= (Heute - Alter) Then
		DeleteInFolder(Unter)
	Else
		L.WriteLine "+++ """ & Unter.Path & """ wird nicht gelöscht. +++"		  
	End If
Next

	L.WriteLine "#### " & Heute - Int(Unter.DateLastModified) & vbTab & Unter.DateLastModified & " **" & Heute - Int(Unter.DateCreated) & "_" & Unter.DateCreated & "** """ & Unter.Path & """ ####"  
	If Unter.DateCreated <= (Heute - Alter) And Unter.DateLastModified <= (Heute - Alter) Then

@echo off & setlocal enabledelayedexpansion
set "Startverzeichnis=C:\Temp"  
set Alter=10

set S=%temp%\Stichtag.vbs
>%S% echo D=WScript.Arguments(0):N=DateAdd("d",WScript.Arguments(0),Date):WScript.Echo Right(N,4)^&Mid(N,4,2)^&Left(N,2)  
for /f %%i in ('cscript //nologo %S% -%Alter%') do set "Stichtag=%%i"  
if not defined Stichtag echo Fehler bei Tageberechnung & goto :eof

echo Stichtag:  %Stichtag%  bei Alter:  %Alter%
echo\
for /d %%i in ("%Startverzeichnis%\*.*") do call :Verzeichnis "%%i"  
goto :eof

:Verzeichnis
echo ====================================================================
set Behalten=
echo  %~t1 %1
for /f "tokens=1-3 delims=. " %%a in ("%~t1") do if %%c%%b%%a geq %Stichtag% set Behalten=True & goto :VerzeichnisFertig  
for /f %%f in ('dir /s /b /ad %1') do if not defined Behalten (  
    if "%%~tf" neq "" (  
	    echo  %%~tf "%%f"  
	    for /f "tokens=1-3 delims=. " %%a in ("%%~tf") do if %%c%%b%%a geq %Stichtag% set Behalten=True  
		) else (
	    set "Parent=%%~dpf"  
		for /f "tokens=1-3 delims=. " %%a in ('dir /tc /ad "!Parent!"^|findstr /e c:"%%nxf"') do (  
            echo  %%a.%%b.%%c "%%f"  
			if %%c%%b%%a geq %Stichtag% set Behalten=True
		)
	)
)
:VerzeichnisFertig
if not defined Behalten goto :WegDamit
echo --------------------------------------------------------------------
echo ++++ %1 wird nicht entfernt. ++++
echo ====================================================================
echo\
goto :eof

:WegDamit
echo --------------------------------------------------------------------
echo #### %1 wird entfernt. ####
echo ====================================================================
echo\
::rd /s /q %1
goto :eof