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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

c0t0s

Новый участник

Сообщения: 21
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

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

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

Отправлено: 13:03, 01-02-2017

megaloman

Ветеран

Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать

Код:

@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

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Последний раз редактировалось megaloman, 01-02-2017 в 18:11.

Это сообщение посчитали полезным следующие участники:

c0t0s

Отправлено: 17:49, 01-02-2017 | #2