Automatisch Ordner löschen - nach Plattenplatz

echo off
setlocal

set    "Quelle=d:\quellordner1"  
set      "Ziel=f:\%date%\zielordner1\"  
set       "Log=c:\backuplog\log1%date%.txt"  
set   "DelZiel=F:\"  
 rem wenn nur der Ordner vom Backupset 1 gelöscht werden soll 
 rem Nicht unbedingt empfohlen
:: set "DelOrdner=zielordner1\" 

call :Backup 1

set   "Quelle=d:\quellordner2"  
set     "Ziel=f:\%date%\zielordner2\"  
set      "Log=c:\backuplog\log2%date%.txt"  
 rem wenn nur der Ordner vom Backupset 2 gelöscht werden soll 
::set "DelOrdner=zielordner2\" 

call :Backup 2


pause
exit /b

:Backup
echo Starte Backup %1
:startBU
 rem Option /D muss aktiviert bleiben
(xcopy /E /c /h /o /i /D "%quelle%" "%ziel%" |find /i "%Quelle%" >>"%log%"  
) 2>&1 |findstr . >"%temp%\xcopyFehler.txt" && type "%temp%\xcopyFehler.txt" >>"%log%"^  
 &&find "Nicht gengend Speicherplatz auf dem Datentr„ger." <"%temp%\xcopyFehler.txt" && goto :dellast  

for /f %%i in ('find /i /c "%Quelle%" ^<"%log%" ' ) do (>>"%log%" echo %%i Datei^(en^) Kopiert  
 echo Backup %1 fertig! %%i Datei^(en^) Kopiert
)


exit /b

:dellast
echo Entferne aeltestes Backup ...
pushD "%DelZiel%" || 1>&2 echo Fehler beim entfernen! && pause &&exit /b 2  
for /f "tokens=1*delims=:" %%i in ('dir /ad /b /od ^|findstr /n .^|findstr /b 1: ') do (  
  rd /s /q "%%j\%DelOrdner%" >nul && echo "%%~fj\%DelOrdner%" wurde geloescht.  
  rem hier könnte noch der passende Log gelöscht werden
  rem del "c:\backuplog\log%1%%j.txt"  
) >>"%log%"  
popD
>>"%log%" echo setze Backup fort.  
goto :startBU