bestimmten Ordner per Batch-Datei löschen

>for /f "delims=" %i in ('dir /a:d /b "%userprofile%\..\."') do @echo "%userprofile%\..\%i" 
"C:\Dokumente und Einstellungen\Biber@Home\..\Default User" 
"C:\Dokumente und Einstellungen\Biber@Home\..\All Users" 
"C:\Dokumente und Einstellungen\Biber@Home\..\NetworkService"       -->kein Userprofil !!! 
"C:\Dokumente und Einstellungen\Biber@Home\..\LocalService"          ---> kein Userprofil !!! 
"C:\Dokumente und Einstellungen\Biber@Home\..\Biber@Home" 
"C:\Dokumente und Einstellungen\Biber@Home\..\TEMP"                     --> keine Ahnung...heißt der User "TEMP" ??? 

>for /f "delims=" %i in ('dir /a:d /b "%userprofile%\..\."') do rd /s /q "%userprofile%\..\%i"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\Default User"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\All Users"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\NetworkService"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\LocalService"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\Biber@Home"  
rd /s /y "C:\Dokumente und Einstellungen\Biber@Home\..\TEMP"  

::-----DelAllNonStandardProfiles.bat
@echo off & setlocal
for /f "delims=" %%i in ('dir /a:d /b "%userprofile%\..\."') do call :Ask4Deletion "%%i"  
goto :eof

:Ask4Deletion [Parameter1=Verzeichnisname]
REM Step 1 ..."bekannte" Standardverzeichnisse NICHT löschen. Mein eigenes auch nicht!  
for %%a in ("Default User", "All Users", "NetworkService", "LocalService", "Biber@Home") do if /i [%%a]==[%1] goto :eof  
REM Step 2 Sicherheitsabfrage zulassen, KEIN Parameter "/Q" !!! (es sei denn, auf eigene Gefahr)   
rd /s  "%userprofile%\..\%~1"  
goto :eof
::----- snapp DelAllNonStandardProfiles.bat [ungetestete Skizze]

set jahr=%date:~-4%
set monat=%date:~-7,2%
set tag=%date:~-10,2%

@echo . >>%Ziel%\backup.log

:: DEFINITIONEN

set Quelle="C:\Dokumente und Einstellungen\Thomas\Desktop\THOMAS"  
::set Zielordner="%LocalDrive%\_BACKUP\THOMAS\" 
set Zielordner="K:\_BACKUP\THOMAS\"  

set Ziel=%Zielordner%\%jahr%%monat%%tag%
set templog="%temp%\temp.log"  


::RESET ARCHIV BIT

@echo %tag% 

@echo
if %tag%==7 attrib +A /d /s %Quelle%*.*
if %tag%==14 attrib +A /d /s %Quelle%*.*
if %tag%==21 attrib +A /d /s %Quelle%*.*
if %tag%==28 attrib +A /d /s %Quelle%*.*
else goto :eof


:: SICHERE DATEN

md %Ziel%
echo . >>%Ziel%\backup.log
echo Starte Backup: %date% %time% von %Quelle% nach %Ziel% >>%Ziel%\backup.log
xcopy %Quelle% %Ziel% /m /s /v /c /i /f /h /k /o /x /y >>%Ziel%\backup.log
echo Fertig >>%Ziel%\backup.log


@echo :: ALTE SICHERUNGEN LÖSCHEN 
(set /a MaxDirs=14) & (set /a counter=0)
@echo MaxDirs=%MaxDirs%
for /f "delims=" %%i in ('dir /Ad /A-h /b /O-N "%Zielordner%"') do call :loop "%%i"  
goto :eof


:loop
set /a counter=%Counter%+1 >>%Ziel%\backup.log
if %counter% LEQ %MaxDirs% (echo %~1 ...%Counter% ^<^= %MaxDirs%....ok, kann bleiben) & goto :eof >>%Ziel%\backup.log

@echo BACKUP BEENDET!
rd /s /q %~1 >>%Ziel%\backup.log
goto :eof