Как создать правильный бат-файл для архивации с условиями?

Question

[Iron_Harvest]

Мне нужно создать архив с помощью первого бат-файла и чтобы оставались только 5 последних архивов, а остальные удалялись. А вторым бат-файлом нужно последний созданный архив разархивировать в указанную директорию.
Первый бат архив написал, но не работает удаление старых, и соответственно не получается сделать такой же алгоритм для разархивации крайнего архива. Так же что бы проверить работоспособность нужно создать файл в блокноте DB_Updat.txt и записать туда полный путь до файла который будете архивировать.

chcp 1251
SET Arc=5

rem Изменить на свой каталог

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.txt
start /wait WinRAR a -y -m5 -ep -dh %ArcName% %DB_Update%

SET Index=0

rem Не удаляет старые архивы....

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 (

И вот второй батник, чтобы извлечь последний созданный архив, но должным образом не работает, только выводит как "текст" название последнего созданного каталога с архивом.

chcp 1251
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%

Comments

[res2001]

У меня почему то не полностью отображается код первого батника.
Для пропуска нескольких первых строк в for /f можно использовать опцию skip и не вести счетчик. Смотрите for /?
Во втором батнике вам нужна только первая строка в выводе dir отсортированном от большей даты к меньшей, поэтому после set можно сразу сделать goto за цикл (или запуск winrar проводить внутри цикла и на первой же итерации завершать выполнение батника). В целом во втором батнике нет комакнды вывода, так что не понятна ваша фраза

только выводит как "текст" название последнего созданного каталога с архивом.

Не отрабатывает start, что ли?

Answer 1

[Olgeir]

1. Как удалить все файлы кроме 5 последних
for /f "skip=5" %%a in ('dir /a-d /b /s /od ....') do del %%a

2. for /f %%a in ('dir /a-d /b /s /od ....') do call asdf %%~nxd

:asdf
set p=%~1
start /wait WinRAR e -y %p% %OutDir%

goto :eof

Comments

[Iron_Harvest]

Здравствуйте! Спасибо что откликнулись! Я сделал немного по другому.. Для удаления всех кроме 5 последних почему-то через do del как у вас не работает....не понимаю почему. А по второму батнику, спасибо, красивое решение! Ниже код как делал я:
По первому батнику получилось так:

for /f "skip=%skip%" %%i in ('dir /o:-d /a:d /b %OutDir%') do rd /q /s %OutDir%\%%i"

По второму батнику я сделал таким образом (но ваше решение мне понравилось больше):

for /f "delims=" %%d in ('dir /o:d /a:d /b "%InDir%\*.*"') do set Dir=%InDir%\%%~nxd
for /f "delims=" %%d in ('dir /b /s /a-d /od "%InDir%\*.*"') do set Arc=%%~nxd
start /wait WinRAR e -y  %Dir%\%Arc% %OutDir%

[Olgeir]

Iron_Harvest, Если не понимаешь почему не работает переделай команду следующим образом
for /f "skip=5" %%a in ('dir /a-d /b /s /od ....') do echo del %%a
таким образом вместо выполнения команды, эта команда будет просто выводиться на экран и можно будет посмотреть что в ней не так. Или выполнить в CMD команду так как она напечаталась и посмотреть сообщение об ошибке.

Answer 2

[АртемЪ]

Лень вникать и пробовать....
Навскидку-
RMDIR удаляет каталоги. Нельзя удалить каталог, если в нем есть файлы.
Поэтому если не удаляет - значит каталог не пустой.
rd /s

Comments

[Iron_Harvest]

К сожалению, не получилось.

[Iron_Harvest]

А разве rmdir и rd не синонимы!? /s - удаляет и вложенные папки файлы /q - не спрашивает об удалении. У меня ведь так и было написано в первой версии поста.