[решено] архивация папок

[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...

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

[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"
) »

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