Код:
@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"
