[alpap]

Код:

@echo off
set "dirA=A"
set "dirB=B"

setlocal enabledelayedexpansion
 for /f "delims=" %%a in ('dir /a-d/b "%dirA%\*"') do set /a "n+=1,nx=n+1,x=0"& set "c!n!=%%~na"
 for /f "delims=" %%a in ('dir /a-d/b "%dirB%\*"') do set /a m+=1& set "l!m!=%%a"& call :# "%%l!m!%%" "%%c!m!%%" "%dirA%" "%dirB%"
endlocal
pause& exit
 
:#
 if not "%~2"=="" (set "z=%~2") else (set /a x+=1& if not !x!==%nx% (call set "z=%%c!x!%%") else (set /a x=0& goto #))
 pushd "%~4"
  if not exist "%z%%~x1" ren "%~1" "%z%%~x1"
 popd
exit /b

если стр.14 изменить так

Код:

if not exist "%~n1_%z%%~x1" ren "%~1" "%~n1_%z%%~x1"

код будет переименовывать файлы в "B" именами файлов из "A" по кругу вот так
Файл 156828