[megaloman]

прикидывает в папку »

Как понять? Если перемещает, то,

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\*?-?*_*.jpg" /B /A:-D`) DO (
		If Exist "%BoxIn%\%%f" (
			FOR /F "tokens=2 delims=-_" %%n IN ("%%f") DO (
				2>nul Md "%BoxOut%\%%n"
				Move /Y "%BoxIn%\*?-%%n_*.jpg" "%BoxOut%\%%n\"
			)
		)
	)
pause
Exit /B

Если надо копировать, то

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\*?-?*_*.jpg" /B /A:-D`) DO (
		FOR /F "tokens=2 delims=-_" %%n IN ("%%f") DO >nul xcopy /F /D /Y "%BoxIn%\%%f" "%BoxOut%\%%n\"
	)
pause
Exit /B