[mwz]

Вот что у меня получилось. @echo off »

На время отладки уберите эту строку и смотрите, где появляются проблемы. Запускать батник из окна CMD. Строка нужна лишь для окончательно отлаженных скриптов — а в процессе отладки противопоказана, поскольку заставляет тыкаться как слепому котёнку вместо того, чтобы или прочитать причину ошибки в явном виде, или увидеть её зрительно (типа отсутствия кавычек при развёртывании переменных, содержащих пробелы).

А то и ставьте команду
pause
после каждой строки и анализируйте, где что пошло не так, как ожидалось.

Я, например, не вижу ни единой двойной кавычки в тех местах, где переменные после их развёртывания могут содержать пробелы или имена на кириллице.

[megaloman]

Код:

@Echo Off
cls
>nul Chcp 1251
	Set "FileIn=Z:\Где размножаемый файл\121615.xls"
	Set "BoxOut=Z:\Папка с искомыми подпапками"
	Set "Reestr=Z:\Папка с реестром\list.txt"

	FOR /F "usebackq delims=" %%f IN (`2^>nul More "%Reestr%"`) DO Set "@@%%f=Copy "%FileIn%""

	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir /B /A:D /S "%BoxOut%\"`) DO (
		 Call %%@@%%~nxd%% "%%d\" >nul 2>&1  &&Call Echo %%@@%%~nxd%% "%%d\"
	)
Pause
Exit /B

файл list.txt

Код:

In
Out
Офигенная фигня

Специально назвал папки кириллицей. Батник и list.txt сохранить в 1251 кодировке (например, стандартный notepad.exe)
Кстати, при желании можно размножить несколько файлов по общей маске, например,
Set "FileIn=Z:\Где размножаемый файл\*.xls"

[Bobis]

megaloman,

Все по инструкции написал. FAR на пару секунд зависает на черном экране, потом результат нулевой. СКРИН

На всякий случай СКРИН_2 папок и list.txt и сам КОД

[megaloman]

Bobis,

Изменённый батник

Код:

@Echo Off
cls
>nul Chcp 1251
	Set "FileIn=D:\Temp\1.txt"
	Set "BoxOut=D:\Temp\tmp"
	Set "Reestr=D:\Temp\list.txt"

	If Not Exist "%FileIn%" (Echo "%FileIn%" Not Exist &Pause &Exit /B 2)
	If Not Exist "%BoxOut%\" (Echo "%BoxOut%" Not Exist &Pause &Exit /B 2)
	If Not Exist "%Reestr%" (Echo "%Reestr%" Not Exist &Pause &Exit /B 2)

>"%~dpnx0.txt" More "%~dpnx0"
>>"%~dpnx0.txt" More "%Reestr%"
>>"%~dpnx0.txt" Dir "%BoxOut%\" /S /B /A:D

	FOR /F "usebackq delims=" %%f IN (`2^>nul More "%Reestr%"`) DO Set "@@%%f=Copy "%FileIn%""

	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir /B /A:D /S "%BoxOut%\"`) DO (
		 Call %%@@%%~nxd%% "%%d\" >nul 2>&1  &&Call Echo %%@@%%~nxd%% "%%d\"
	)
Pause
Exit /B

Выделенные строки отладочные, они делают текстовый файл рядом с батником, если батник не отработает, приложите его к сообщению. В дальнейшем эти строки можно удалить
Прилагаю заархивированную папку Temp co всем хозяйством, включая батник.
На всякий случай: не называйте свои исполнимые файлы именами команд в CMD: copy.bat, например. Возможны коллизии: что будет вызывать код - команду copy или файл copy.bat?

Батник в предыдущем посте исправил тоже

[Bobis]

megaloman,

На всякий случай: не называйте свои исполнимые файлы именами команд в CMD: copy.bat, например. Возможны коллизии: что будет вызывать код - команду copy или файл copy.bat? »

Спасибо, я как-то не подумал от этом.

Файл работает. Проверил на рабочих папках - из 2000 папок находит нужные из списка, раскладывает туда файл. Даже учитывая то ,что в названии папок присутствуют украинские символы.

СПАСИБО большое всем, кто откликнулся. Тему можно считать закрытой.

[Iska]

Спасибо, я как-то не подумал от этом. »

Почти каждый из нас проходит через это .

[Sasha_vinni]

Помогите написать батник.
Есть файлы, к примру "Семенов.txt", "Иванов.txt" в которых хранятся имена файлов в столбец без расширения и путей.
Они находятся в той же папке где есть те файлы что по списку.
Задача, создать папку с именем файла ("Семенов", "Иванов"...) и скопировать туда файлы из списка этих текстовых файлов.
Заранее спасибо!

[megaloman]

Sasha_vinni, Вы не указали кодировку текстовых файлов "Семенов.txt", "Иванов.txt" . Вы не уточнили, есть ли другие текстовые файлы, не содержащие списки. В предположении, что кодировка файлов 1251 и иные txt отсутствуют

Код:

@Echo Off &Cls 
>nul Chcp 1251
rem	Set "BoxIn=Z:\Box_In"
	Set "BoxIn=%~dp0"

	Pushd "%BoxIn%"||(Echo Folder "%BoxIn%" not found &Pause &Exit /B 2)
	FOR %%f IN ("*.txt") DO (
		2>nul Md "%%~nf"
		For /f "usebackq delims=" %%n IN (`2^>nul type "%%f"`) Do >nul Copy "%%n.*" "%%~nf\"
rem		For /f "usebackq delims=" %%n IN (`2^>nul type "%%f"`) Do >nul Move "%%n.*" "%%~nf\"
	)
Pause
Exit /B

Здесь батник настроен для обработки файлов в той же папке, что и батник. Но возможен вариант явного указания рабочей папки.

и скопировать туда файлы из списка этих текстовых файлов »

Сейчас настройка на копирование. Второй вариант - перемещение файлов.