Ветеран
Сообщения: 2728 Благодарности: 1697
Профиль | Отправить PM | Цитировать
@Echo Off FOR /F "usebackq delims=" %%j IN (`Dir /s /b /A:D`) DO Call :SubDir "%%j" GoTo :Eof :SubDir FOR /F "usebackq delims=" %%i IN (`Dir %1 /b /A:-D`) DO ( 7z a -tzip "%~1\%%i.zip" "%~1\%%i" If Exist "%~1\%%i.zip" del "%~1\%%i" )
------- Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.
Последний раз редактировалось megaloman, 17-12-2011 в 21:49.
Отправлено: 15:50, 17-12-2011 | #2
