[megaloman]

Код:

@Echo Off

Set "In=Z:\Box_In"
Set "Mask=_????Y??M??D*.mp4"

Set "Out=Z:\Box_Out"

FOR /F "usebackq tokens=1,2,3 delims=_YMD" %%i IN (`Dir "%In%\%Mask%" /B /A:-D 2^>nul`) DO (
	If Exist "%In%\_%%iY%%jM%%k*.mp4" ( 
		If Not Exist "%Out%\%%i\%%j\%%k" Md "%Out%\%%i\%%j\%%k" 
		Move /Y "%In%\_%%iY%%jM%%k*.mp4" "%Out%\%%i\%%j\%%k\" >nul
	) 
)