Код:

@Echo Off  
Set To=C:\source\arch\ 
Set Txt=C:\source\file.txt 
Set FLog=C:\source\cp_list.log  

Del %FLog% >nul 1>nul 2>nul 
If Not '%1'=='' (Set Log=%1) Else (Set Log=0)  
FOR /F "usebackq delims=" %%i IN ("%SourceTxt%") DO Call 
:Coping "%%i" "%CopyTo%\%%i" 
GoTo :Eof  

:Coping 

If Not Exist %1 (if %Log%==1 (Echo !!! Нет файла %1 >>%FLog%) Else (Echo !!! Нет файла %1 &&Pause)) && GoTo :Eof 
if Not Exist "%~p2*.*" Md "%~p2" >nul && if %Log%==1 If Exist "%~p2*.*" (Echo +++ Создана папка "%~p2" >>%FLog%) Else (Echo !!! Не удалось создать папку "%~p2" >>%FLog%)  

Copy %1 %2 >nul  

if %Log%==1 if Exist %2 (Echo +++ Скопировали %1 -в- %2>>%FLog%) Else (Echo !!! Не удалось скопировать %1>>%FLog%)