[megaloman]

Код:

@Echo Off
cls
	Set "BoxIn=D:\MartStorage\70070"
	Call :MyMove "%BoxIn%" "_vsgrf_*.*" "Съемка"
	Call :MyMove "%BoxIn%" "_ppltr_*.*" "План"
	Call :MyMove "%BoxIn%" "_anketa_*.*" "Анкета"
	Call :MyMove "%BoxIn%" "_ct_*.*" "Контроль"
	Call :MyMove "%BoxIn%" "*.*" "Договор"
pause
Exit /B

:MyMove
	If Not Exist "%~1\%~3" Md "%~1\%~3"
	>nul Move /Y "%~1\%~n1%~2" "%~1\%~3\"
Exit /B

Батник сохранить в 866 кодировке.
Путь указать без \ на конце
Договор сделать последним, так как там нет ключевого слова кроме префикса - имени папки.