Копирование с созданием папки назначения с именем, соответствующим дате копирования, и удаление старых папок

@echo off
set source=C:\123
set dest=C:\321
 
Set DeltaDay=-7
 
SetLocal EnableExtensions EnableDelayedExpansion
 
pause
If Exist "%dest%" (
    FOR /F "usebackq delims=" %%j IN (`Dir "%dest%%" /B /A:-D /O:N`) DO (
        Set FDate=%%~nxj
        Set FDate=!FDate:~0,8!
        If !FDate! LEQ %yyyymmdd% (Del "%dest%\%%j">NUL) Else (GoTo :Continue) 
    )
)
 
:Continue
FOR /F "usebackq delims=" %%j IN (`Dir "%source%" /B /A:D /O:N`) DO (
    Set FDate=%%~nxj
    Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
    If !FDate! GTR %yyyymmdd% XCopy "%source%\%%j" "%dest%" /D /Y >NUL
)
 
GoTo :Eof
 
:FromNow
 SetLocal
 Set DT=%2
 Set yyyy=%DT:~-4%& set /a mm=100%DT:~3,2%%%100& set /a dd=100%DT:~,2%%%100
 Set /A JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
 Set /A L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001
 Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11
 Set /A J=J+2-12*L,I=100*(N-49)+I+L
 Set /A yyyy=I,mm=100+J,dd=100+K
 EndLocal& Set yyyymmdd=%yyyy%%mm:~-2%%dd:~-2%
GoTo :Eof

chcp 1251
echo off
cls
 
md \\SERVER2\обмен\IT\backup\%date:~6,4%.%date:~3,2%.%date:~0,2%
if not exist \\SERVER2\обмен\IT\backup\%date:~6,4%.%date:~3,2%.%date:~0,2% goto error5
 
xcopy C:\321 \\SERVER2\обмен\IT\backup\%date:~6,4%.%date:~3,2%.%date:~0,2% /y /e /z /c /h
 
SetLocal EnableExtensions
 
set BackUp=\\SERVER2\обмен\IT\backup
set Num=2
 
pushd %BackUp%
for /f "tokens=* delims=" %%D in ('dir /ad /b /o-d') do call :Proceed "%%D"
popd
exit
 
:Proceed
if not %Num%==0 set /a Num-=1&exit /b
echo %date% %time%: Erase %1>>%~dpn0.log
rd /s /q %1 2>nul >nul
exit /b