[megaloman]

promt@vk, Что значит ничего не происходит? Черный экран и скрипт не выходит на завершение (паузу)? Попробуйте убрать >nul, я специально подавил вывод на экран команды xcopy, чтобы скрипт быстрее выполнялся. Переименуйте свой скрипт в txt-файл и приложите к сообщению.

[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 код:

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

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

[megaloman]

promt@vk, надо

Код:

Xcopy "%BoxIn%\%%f\*.*" "%BoxOut%\%%f\" /E /Y /D /H /R

без >
Я сделал все пути как у Вас, у меня работает. Возможно у вас список папок не соответствует тому, что реально есть.

Мои данные

60028079 60017932 60020335 60015993 60028096

Chapter01 Chapter05 другая папка однa папка ПапкаChapter01 ПапкаChapter05 Папкадругая папка Папкаоднa папка 60015993 60017932 60020335 60028079 60028096 Тра Ля Ля 60015993 Тра Ля Ля 60017932 Тра Ля Ля 60020335 Тра Ля Ля 60028079 Тра Ля Ля 60028096 Тру Лю Лю 60015993 Тру Лю Лю 60017932 Тру Лю Лю 60020335 Тру Лю Лю 60028079 Тру Лю Лю 60028096

60015993 60017932 60020335 60028079 60028096 Тра Ля Ля 60015993 Тра Ля Ля 60017932 Тра Ля Ля 60020335 Тра Ля Ля 60028079 Тра Ля Ля 60028096 Тру Лю Лю 60015993 Тру Лю Лю 60017932 Тру Лю Лю 60020335 Тру Лю Лю 60028079 Тру Лю Лю 60028096

[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

[megaloman]

Отладочный вариант

Код:

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

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

	Dir "%FileTxt%"
	Pause

	Dir "%BoxIn%" /A:D
	Pause

	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

Файл E:\test\spisok.txt находит? Содержимое D:\test\1 соответствует списку?

[promt@vk]

Код:

 Том в устройстве E не имеет метки.
 Серийный номер тома: 9C04-A286

 Содержимое папки E:\test

25.08.2021  21:13                14 spisok.txt
               1 файлов             14 байт
               0 папок   1*774*346*240 байт свободно
Для продолжения нажмите любую клавишу . . .

[promt@vk]

В скрипте он указан

Код:

201655
111111

HTML код:

E:\test\1\218450
E:\test\1\32920
E:\test\1\103217
E:\test\1\папка 201655

E:\test\2\  - пуста

[megaloman]

promt@vk, Смотрите сами:
Set "BoxIn=D:\test\1"
А у Вас
E:\test\1

[alpap]

Содержимое D:\test\1 соответствует списку? »

да он не смотрит что пишут, что показывает-то?

E:\test\1\218450 E:\test\1\32920 E:\test\1\103217 E:\test\1\папка 201655 E:\test\2\ - пуста »

т.е. вся работа только с диском Е, а в диск D вероятно никто и не смотрел.

[promt@vk]

Вот я валенок, не тот том выставил.

В папке E:\test\ есть много других папок и подпапок, он их не будет проверять?