[megaloman]

Павел_Будков@vk,

Перепаковаваются все архивы в указанной папке. Изменяется указанное расширение файлов на другое.

Код:

@Echo Off
cls

Set "BoxIn=Z:\Box_In"
Set "ArcType=zip"

Set "InExt="
Set "RenExt=doc"

Set "Arc=C:\Program Files\7-Zip\7z.exe" 

Set "BatTmp=%BoxIn%\%~nx0.tmp"
2>nul Md "%BatTmp%" 

Set "BatBak=%BoxIn%\%~nx0.bak"
2>nul Md "%BatBak%"

>nul 2>&1 Del /Q "%BatTmp%\*.*"
 
Pushd "%BatTmp%"
If Not %ErrorLevel%==0 (Echo "%BatTmp%" &Pause &Exit /B %ErrorLevel%)

FOR %%a IN ("%BoxIn%\*.%ArcType%") DO (
	Echo %%a
	>nul "%Arc%" e "%%a" 
	FOR %%f IN ("*.%InExt%") DO Ren "%%f" "%%~nf.%RenExt%"
	Move /-Y "%%a" "%BatBak%\"
	>nul 2>&1 Del "%%a" 
 	>nul "%Arc%" a -tzip -sdel "%%a"
)
Popd
2>nul Rd "%BatTmp%" /Q /S

Pause

Укажите свой путь вместо моего в
Set "BoxIn=Z:\Box_In"

Используется архиватор 7z.
В красных строках организуется хранение исходных архивов в .bak папке. Если этого не надо, удалите эти строки

У 7z есть ключ переименования файла в архиве. Но надо явным образом указать имя файла. Я не стал с этим связываться, очевидно, это бы работало бысрее

[Павел_Будков@vk]

Спасибо, работает отлично!