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

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
rem Сохранить в 866 (Dos) кодировке если есть русские буквы

Set "In=F:\EXCEL"
Set "Out=E:\Delete"

Call :CopyMask "%In%","%Out%","*кассир*.xl*" 
Call :CopyMask "%In%","%Out%","*Форма*.xl*" 

GoTo :Eof

:CopyMask

FOR /F "usebackq delims=" %%f IN (`Dir "%~1\%~3" /B /A:-D /O:-D 2^>nul`) DO (
	Copy "%~1\%%f" "%~2\" >nul
	GoTo :Eof
)

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

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

Отправлено: 15:49, 22-07-2014 | #2