CMD/BAT - [решено] архивация папок

[infoman1@vk]

Есть скрипт который в определенной папке архивирует все файлы *.exe под пароль 1

Нужно его переделать что бы он искал в d:\instal\ папки и архивировал их

d:\instal\aimp\

d:\instal\gom\

d:\instal\xstarter\



в каждой из єтих папок есть вложенные папки и файлы их в отдельный архив добавлять не нужно только главные папки по адресу d:\instal\



должно получится

xstarter.rar

gom.rar

aimp.rar





скрипт файлы на пороль

set dir="d:\instal\"

set ext=*.exe

set pass="1"



cd /d %dir%

for /f "delims=" %%i in ('

dir /a-d/b/s %ext% 2^>nul

') do (

"%PROGRAMFILES%\WinRAR\Rar.exe" a -y -k -ri15 -ep -df -m0 -inul -p%pass% "%%~dpni.rar" "%%i"

)



exit /b

[infoman1@vk]

up....

[infoman1@vk]

up...

[infoman1@vk]

ну кто нибуть

[infoman1@vk]

up...

[infoman1@vk]

Код:

Код: Выделить всё

@Echo Off
Set "Where=E:\Install"
Set "To=E:\Install"
Set "Pass=1"
Set "Ext=rar"
Set "Arc=%ProgramFiles%\WinRAR\WinRar.exe"
Set "Keys=a -r -p%Pass% -df -ep2"
FOR /F "usebackq delims=" %%i IN (`Dir "%Where%" /B /A:D`) DO (
   "%Arc%" %Keys% "%To%\%%i.%Ext%" "%Where%\%%i"
)

Ключ -ep или -ep1 или -ep2 применяйте в зависимости от того, с какими путями будут храниться файлы в архиве (см. документацию (хелп) архиватора

[infoman1@vk]

Цитата megaloman:



Код: Выделить весь код

@Echo Off

Set "Where=E:\Install"

Set "To=E:\Install"

Set "Pass=1"

Set "Ext=rar"

Set "Arc=%ProgramFiles%\WinRAR\WinRar.exe"

Set "Keys=a -r -p%Pass% -df -ep2"

FOR /F "usebackq delims=" %%i IN (`Dir "%Where%" /B /A:D`) DO (

"%Arc%" %Keys% "%To%\%%i.%Ext%" "%Where%\%%i"

)

CMD/BAT - [решено] архивация папок

очень помогли спасибо