Создание архива с условием удаления старых записей

SET Arc=5
 
rem Если указать путь до рабочего стола или любой другой без кириллицы и пробелов, то архивация работает. Для рабочего стола указывать без кавычек
 
SET OutDir="Z:\MarkGeo\Geo\Базовые_файлы_мм\Обновление БД" 
IF NOT EXIST "%OutDir%" MD "%OutDir%"
SET ArcName=%OutDir%\BD_Update_%date%.zip
start /wait WinRAR a -y -m5 -ep -dh "%ArcName%" @DB_Updat.lst
 
SET Index=0
 
rem Не удаляет старые архивы.... Проверить это можно создав копии архива в папке и заново запустить батник.
 
FOR /f "tokens=1" %%i IN DIR /A /B /T:C "%OutDir%"
DO SET /a Index=+1 IF Index LEQ %Arc% 
else RMDIR /S/Q "%OutDir%\%%i"

set Arc=5
set OutDir=C:\Users\user\Desktop\mmm
if not exist "%OutDir%" md "%OutDir%"
set h=%time:~0,2%
set h=%h: =0%
set FullBackupDir=%OutDir%\%date%_%h%%time:~3,2%%time:~6,2%\
md %FullBackupDir%
set ArcName=%FullBackupDir%\BD_Update_%date%.zip
set DB_Update=@C:\Users\user\Desktop\DB_Updat.lst
start /wait WinRAR a -y -m5 -ep -dh %ArcName% %DB_Update%
 
for /f "tokens=* delims=" %%D in ('dir %OutDir% /ad /b /o-d') do (
    if not %%D=="" (
        if not Arc==0 (
            set /a Arc-=1
        ) else (
            rd /s /q %OutDir%%%D 2>nul >nul
        )
    )
)

set InDir=C:\Users\user\Desktop\mmm
set OutDir=C:\Users\user\Desktop\mmm!!!
for /f "delims=" %%d in ('dir /b/s/a-d/od "%InDir%\*.*"') do set "$d=%%~nxd %%~td"
start /wait WinRAR e -y  %$d% %OutDir%