Объединение двух скриптов создания и удаления папок

@echo off
    SetLocal EnableExtensions
 
    :: Добавляю к дате +1
    call :fromDate "%date%" +0 ddmmyyyy
 
    md "%ddmmyyyy%"
 
    & goto :eof
 
 
    :FromDate [Дата] [действие (+-) Число дней] [Переменная для хранения результата]
    :: Функция работы с датами
    setLocal
    set now=%~1
    set /a yyyy=%now:~-4%
    set /a mm=1%now:~3,2%-100
    set /a dd=1%now:~,2%-100
    set /a JD=%~2+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 "%~3=%dd:~-2%.%mm:~-2%.%yyyy%"
    exit /b

@echo off
set main_dir=D:\123
call :FromNow -7
for /f "delims=" %%i in ('dir "%main_dir%" /b /ad') do call :p "%%i"
exit 
 
:p
setLocal
set dir_date=%~1
set dir_date=%dir_date:~-10%
if %dir_date:~-4% lss %ddmmyyyy:~-4% goto delete
if %dir_date:~-4% gtr %ddmmyyyy:~-4% goto no_delete
if %dir_date:~3,2% lss %ddmmyyyy:~3,2% goto delete
if %dir_date:~3,2% gtr %ddmmyyyy:~3,2% goto no_delete
if %dir_date:~,2% lss %ddmmyyyy:~,2% goto delete
goto no_delete
:delete
rd /s /q "%main_dir%\%~1"
:no_delete
EndLocal
exit /b
 
:FromNow
setLocal
set now=%date%
set /a yyyy=%now:~-4%
set /a mm=%now:~3,2%
set /a dd=%now:~,2%
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 ddmmyyyy=%dd:~-2%.%mm:~-2%.%yyyy%
exit /b

md %date%

set $date=%date:/=.%& 2>nul call md %%$date:-=.%%

@echo off
set "main_dir=D:\123"& call pushd "%%main_dir%%"|| exit/b 1
 
for /f "tokens=1-3 delims=./-" %%i in ('
 mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(DateAdd("D",-7,Date))&Close()"
') do (
 for /f "tokens=1-3 delims=." %%l in ('2^>nul dir/ad/b') do (
  if %%n%%m%%l lss %%k%%j%%i rd/q/s %%l.%%m.%%n
 )
)
 
popd& exit/b 0