[megaloman]

Код:

@Echo Off &Cls
	Set "BoxIn=Z:\Box_In"
	Set "Mask=*.jpg"

	Set "List=Z:\Box_Arc\List.txt"
	Set "BoxOut=Z:\Box_Out"
		
	Pushd "%BoxIn%"||(Echo Folder "%BoxIn%" not found &Pause &Exit /B 2)
	If Not Exist "%List%" (Echo Filer "%List%" not found &Pause &Exit /B 2)

	Set /A n=1000000
	For /f "usebackq delims=" %%s IN (`type "%List%"`) Do (Set /A n+=1 &Call Set @%%n%%=%%s)

	Set /A n=1000000
	For %%f In (%Mask%) Do (Set /A n+=1 &Call :MyMove %%n%% "%%f")
	Popd
Pause
Exit /B
:MyMove
	Call Set "X=%%@%1%%"
	>nul Move %2 "%BoxOut%\%~n2-%X%%~x2"
Exit /B