[promt@vk]

Код:

@Echo Off
cls
>nul chcp 1251
	Set "FileTxt=E:\test\spisok.txt"

	Set "BoxIn=D:\test\1" 
	Set "BoxOut=D:\test\2"

	FOR /F "usebackq delims=" %%n IN ("%FileTxt%") DO For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\*%%n.*" /B /A:D`) Do (
		> Xcopy "%BoxIn%\%%f\*.*" "%BoxOut%\%%f\" /E /Y /D /H /R
	)
pause
Exit /B 0

HTML код:

Для продолжения нажмите любую кнопку...

и больше ничего не происходит