[gora]

Seryoga204, сделано по, предоставленному Вами, образцу файла

Код:

@Echo Off & Chcp 1251>Nul
Setlocal EnabledelayedExpansion
Set "$SRS=F:\probe\переименование\001\" & rem папка источник
Set "$DST=F:\probe\переименование\002\" & rem папка приемник

Cd %$SRS%
For /f %%a in ('Dir /b %$SRS%') Do call :RNCOPY "%%a"
goto :EOF

:RNCOPY
Set cnt=0
For /f "tokens=* delims=" %%b in (%$SRS%%~1) Do (
	Set /a cnt+=1
	Set $nm=%%b
	If !cnt!==1 Set $lin!cnt!=!$nm:~38,6!
	If !cnt!==2 Set $lin!cnt!=!$nm:~17,18!
	If !cnt!==3 Set $lin!cnt!=!$nm:~43,4!
)
Copy "%$SRS%%~1" "%$DST%!$lin2!_Dt!$lin3!_!$lin1!%~x1">Nul
goto :Eof