[Iska]

Ага. Роман-то с продолжением, оказывается. Понятней, правда, не стало.

[megaloman]

Код:

@Echo Off

Set Dir1=D:\Delete\Основной каталог
Set Dir2=D:\Delete\Следующий образ
Set Zip=D:\Delete\7zip

rem Set ZipExe="C:\Program Files\WinRar\WinRar.exe" a -r -ibck
Set ZipExe="C:\Program Files\7-Zip\7z.exe" a -r 

Set Dir11="Test1" "Test2" "Test3" "Test4" "Test5" "Test6" "Test7" "Test8" "Test9" "Test10" "Test11" "Test12" "Test13" "Test14" "Test15"

SetLocal EnableExtensions
SetLocal EnableDelayedExpansion

md "%Zip%" 2>nul
Cd /D "%Zip%" 

For  /L %%n IN (1,1,9) DO (
        Set /A NN=%%n+100
        Set NN=!NN:~1,2!
 
	For %%d IN (%Dir11%) DO (

rem		md "%Dir1%\%%~d\%%n" 2>nul
rem		Echo %Dir1% %%d %%n >"%Dir1%\%%~d\%%n\%time:~6,5% %%~d_!NN!.txt"

		If Exist "%Dir1%\%%~d\%%n\*.*" (
		   md "%Dir2%\%%n\%%~d\!NN!" >nul 2>nul
		   Copy "%Dir1%\%%~d\%%n\*.*" "%Dir2%\%%n\%%~d\!NN!\" >nul 2>nul
		)
	)
	%ZipExe% %%n "%Dir2%\%%n\*.*"
rem        rd "%Dir2%\%%n" /s /q 
)

Вот решение. В нём закомментировано

rem Set ZipExe="C:\Program Files\WinRar\WinRar.exe" a -r -ibck
то есть вариант с вызовом упаковщика winrar

rem md "%Dir1%\%%~d\%%n" 2>nul
rem Echo %Dir1% %%d %%n >"%Dir1%\%%~d\%%n\%time:~6,5% %%~d_!NN!.txt"
Создание тестовых исходных папок с тестовыми исходными файлами - ручками такую структуру мне было делать лень

rem rd "%Dir2%\%%n" /s /q
здесь я привёл пример, как можно убить подпапку по мере её упаковки.
можно ниже последней скобоки вообще написать

rd "%Dir2%" /s /q

если нет смысла хранить файлы аж в 3 экземплярах, оставляем только упакованные.

[cezar_bd]

спасибо большое. Самое оно.