[gora]

В исходной папке все файлы пронумерованы »

Код:

@Echo Off
SetLocal EnableDelayedExpansion
Set folder=e:\Temp\3 3
Set OutFolder=e:\Temp\Out

xCopy /T "%folder%\*" "%OutFolder%\"
For /F "tokens=*" %%a In ('Dir /B /S /A:D "%folder%"') Do (
	For /F "tokens=*" %%i In ('Dir /B /S /A:-D "%%~a" 2^>Nul') Do (
		Set name=%%~ni
		Call :_ExtractN
		Copy "%%i" "%OutFolder%\%%~nxa\%%~nxa_!name!%%~xi"
	)
)
Pause
Exit

:_ExtractN
Set name=%name:*_=%
If Not "%name%"=="%name:*_=%" GoTo :_ExtractN
GoTo :EOF