Seryoga204,
на скорую руку, хотя надо еще попробовать с enableddelayedexpansion. Какая у Вас ОС?
Код:
Echo on & [b]Chcp 1251[b]
Set "$SRS=F:\probe\переименование\001" & rem папка источник
Set "$DST=F:\probe\переименование\002" & rem папка приемник
Cd %$SRS%
For /f %%a in ('Dir /b %$SRS%') Do ^
For /f "skip=1" %%b in (%%~a) Do ^
call :RNCOPY "%%b" "%%a"
goto :EOF
:RNCOPY
Set $nm=%~1
Set $nm=%$nm:~9,6%
Copy "%~2" "%$DST%\%$nm%~x2"
