Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для gora

Ушёл из жизни


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

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


Код: Выделить весь код
@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
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:26, 18-01-2013 | #6