Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] архивация папок (http://forum.oszone.net/showthread.php?t=293102)

infoman1@vk 26-12-2014 13:20 2448491

архивация папок
 
Есть скрипт который в определенной папке архивирует все файлы *.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 30-12-2014 13:18 2449910

up....

infoman1@vk 07-01-2015 21:27 2453168

up...

infoman1@vk 11-01-2015 16:06 2454546

ну кто нибуть

infoman1@vk 17-01-2015 18:28 2457529

up...

megaloman 17-01-2015 20:47 2457579

Код:

@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 20-01-2015 17:53 2458931

Цитата:

Цитата 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"
) »

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


Время: 04:08.

Время: 04:08.
© OSzone.net 2001-