[megaloman]

Код:

@Echo Off                                                                                                  
	Call :@Files "Z:\Test\До" "Z:\Test\После"  "jpeg" "_201"
GoTo :Eof

:@Files
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D /S "%~1\*%~4*.%~3"`) DO (
		If Exist "%%f" Call :@Moveing "%%f" %2 %3 %4  
	)
GoTo :Eof

:@Moveing
	Set "Fold=%~n1"
	Call Set "Fold=%%Fold:%~4=:%%"
	FOR /F "delims=:" %%n IN ("%Fold%") DO Set "Fold=%%n"
	If Not Exist "%~2\%Fold%" Md "%~2\%Fold%"
	>nul Move /Y "%~dp1%Fold%%~4*.%~3" "%~2\%Fold%\" 
GoTo :Eof