Цитата Sergo_zloy:
В исходной папке все файлы пронумерованы »
|
Код:

@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