[решено] Копирование файлов с архивацией

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Копирование файлов с архивацией (http://forum.oszone.net/showthread.php?t=323369)

c0t0s

01-02-2017 13:03 2707984

Копирование файлов с архивацией

Добрый день! Нужно организовать копирование файлов с одного диска на другой, с автоматической архивацией.

Файлы находятся на диске "d:\Backup Files\1\" В папке есть файлы с разрешениями .vbk , .vbm , .vib

Нужно сделать так, чтобы все файлы копировались на диск "f:\Backup Files\1\" сразу в архивах, желательно каждый файл отдельно.
Подскажите пожалуйста как это организовать? Спасибо.

megaloman

01-02-2017 17:49 2708073

Код:

@Echo off



Set "From=d:\Backup Files\1"

Set "To=f:\Backup Files\1"



Set "Mask="*.vbk" "*.vbm" "*.vib""



Set "Arc="C:\Program Files\7-Zip\7zg.exe" u"

Set "AExt=7z"



Pushd  "%From%"



FOR %%f IN (%Mask%) DO %Arc% "%To%\%%~nxf.%AExt%" "%%f"



Popd

GoTo :Eof

Rar

Код:

@Echo off



Set "From=d:\Backup Files\1"

Set "To=f:\Backup Files\1"



Set "Mask="*.vbk" "*.vbm" "*.vib""



Set "Arc="C:\Program Files\WinRAR\WinRAR.exe" u"

Set "AExt=rar"



Pushd  "%From%"



FOR %%f IN (%Mask%) DO %Arc% "%To%\%%~nxf.%AExt%" "%%f"



Popd

GoTo :Eof

Время: 11:57.