[megaloman]

Код:

@Echo Off
	>>"e:\Movied.log" Echo ==== %Date% %Time% 
	Call :MoveOld "Z:\Box_In" "Z:\Box_Arc" "work_*.*" 3 "e:\Movied.log"
Exit /B

:MoveOld
	FOR /F "usebackq skip=%4 delims=" %%d IN (`2^>nul Dir "%~1\%~3" /B /A:-D /O:-N`) DO (
		>>%5 Echo Move /Y "%~1\%%d" "%~2\"
		>nul 2>>%5 Move /Y "%~1\%%d" "%~2\"
	)
Exit /B