[Anonymоus]

Код:

@Echo Off
SetLocal EnableDelayedExpansion
For /F "delims=" %%F In ('Dir "files\*.htm" /A-D /B') Do (
	For /F "tokens=1,3 delims=_" %%A In ("%%F") Do (
		Set Prefix=%%A&Set YYYYMMDD=%%B
		Ren "files\%%F" "!Prefix:~,2!!YYYYMMDD:~2!"
	)
)