Копирование тучи папок в 3-4 клика. - Компьютерный форум OSzone.net

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

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

- - Копирование тучи папок в 3-4 клика. (http://forum.oszone.net/showthread.php?t=251554)

Копирование тучи папок в 3-4 клика.

Собственно сабж:
Есть туча папок типа Rdg, Csx, Dre и т.п.
Все они составляют определённые комплекты.
Нужно сделать скрипт, в котором будут определённые списки папок, которые нужно копировать с определённого компа допустим "Folder_server" на определённый диск.
И было бы очень классно, если бы скрипт при запуске спрашивал, куда копировать.
Ну на крайний случай - хотя бы ручками писать пути каждый раз в самом скрипте.

i-Lex, мутно описано. Определитесь, что Вы хотите, и опишите конкретнее.

Iska, я хочу, чтобы скрипт копировал заданные папки в место, кторое я укажу.
И нужно чтобы скрипт спрашивал, куда именно копировать.
Ка-кто так.

а вы уверены, что вам нужен скрипт?
может вам подойдет SendTo

Нет. Совсем не подойдёт.
Есть набор папок:
ZRC
DDW
SUF
WPO
ERT
VCD
POS
HHR

Комплект 1 состоит из таких папок:
ZRC
WPO
HHR

Комплект 2 состоит из таких:
DDW
SUF
ERT

Комплект 3 состоит из таких:
WPO
HHR
VCD
POS

И таких комплектов около 40.
В комплектах в разы больше папок, чем в примере.
Очень геморно выбирать эти папки каждый раз.
+ есть шанс ошибиться.
Так бы были *.bat-файлы с названиями комплектов и мне оставалось только запустить нужный и выбрать папку на носителе, куда копировать.

Код:

@Echo Off

:: кодировка файла Кириллица DOS (866)

SetLocal EnableDelayedExpansion

:: путь к папкам комплектов

Set fPath=e:\Temp

:: путь к месту копирования комплектов по умолчанию

Set MyPath=e:\Temp\MyFolder

:: имена папок комплектов (без пробелов в имени)

:: число комплектов для примера 3, может быть увеличено

Set kit1=ZRC WPO HHR

Set kit2=DDW SUF ERT

Set kit3=WPO HHR VCD POS



:_loop

CLS

Set /p num=Введите номер комплекта (1...3):

If "%num%"=="" GoTo :_loop

If %num% LSS 1 GoTo :_loop

If %num% GTR 3 GoTo :_loop

Echo Выбран комплект %num%

Echo.

Set /p cPath=Введите путь для копирования (%MyPath%):

If "%cPath%"=="" Set cPath=%MyPath%

CLS

Echo Копируем набор "!kit%num%!" в "%cPath%"

:: ключи для xCopy прописываем по необходимости

:: слово Echo убрать для копирования (после проверки)

For %%i In (!kit%num%!) Do Echo xCopy "%fPath%\%%i" "%cPath%\%%i"

Pause

Увы - не совсем то.
Хотелось бы, чтобы было примерно так:

Цитата:

копировать %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%
копировать \\File_server\Folders\ %имя папки%

запрос директории, куда копировать.

И было бы очень хорошо, если бы показывался прогресс.