[megaloman]

Код:

@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
)

[kirillius]

megaloman, спасибо большое! А что дописать, чтобы он в конце показывал, что сделал? PAUSE не работает почему-то, отрабатывает и закрывается...

[megaloman]

Код:

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

cls

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

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

Pause
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
	If Exist "%~2\%%f" (
		Echo Файл "%~1\%%f" скопирован в "%~2\"
	) Else (
		Echo Файл "%~1\%%f" НЕ скопирован в "%~2\"
	)
	GoTo :Eof
)
Echo Нет файлов "%~1\%~3"

[kirillius]

Благодарю!