[megaloman]

Код:

@Echo Off
cls

Chcp 1251 >nul

Set "BoxIn=Z:\Box_In"
Set "Ext1=jpg"
Set "Ext2=txt"
Set /A Len=150
Set "Big=..."
Set "Delim=@"

FOR /F "usebackq delims=" %%f IN (`Dir "%BoxIn%\*.%Ext1%" /B /A:-D 2^>nul`) DO (
	If Exist "%BoxIn%\%%~nf.%Ext2%" Call :First "%BoxIn%\%%~nf.%Ext2%" "%BoxIn%\%%f" 
)
GoTo :Eof

:First
	Set "NName= "
	FOR /F "usebackq tokens=1 delims=%Delim%" %%n IN (%1) DO Set "NName=%%n" &GoTo :Continue
	:Continue
	If "%NName: =%"=="" GoTo :Eof
	Call Set "NNo=%%NName:~%Len%,1%%"
	Call Set "NName=%%NName:~0,%Len%%%"
	If Not "%NNo%"=="" Set "NName=%NName%%Big%"
	Move /Y %2 "%~dp2%NName%%~x2" >nul
GoTo :Eof