Переименовать файлы с определенным расширением на нескольких жестких дисках

@echo off
Setlocal EnableDelayedExpansion
for /r "%userprofile%\Desktop\Batch" %%c in (*.docx) do (
set "b=%%~dpc"
call :1 
)
pause
exit /b
:1
pushd "!b!"
for /f "delims=" %%k in ('dir /b  *.docx') do (
ren "%%~nxk" "p!h!.docx"
set /a h+=1
)
set h=
exit /b

@echo off
Setlocal EnableDelayedExpansion
for %%a in (c,d) do (call :2 %%a)
pause
exit /b
:2
for /r "%~1:" %%c in (*.docx) do (
set "b=%%~dpc"
call :1 "%%c" 
)
exit /b
:1
pushd "!b!"
for /f "delims=" %%k in ('dir /b  *.docx') do (
ren "%%~nxk" "p!h!.docx"
set /a h+=1
)
set h=
exit /b

"%~1:"

@echo off
for /f "delims=" %%a in ('dir /a-d/b/s "C:\*.xml" "D:\*.xml" "\\serv\fold\*.xml"') do call :# "%%a"
pause& exit
 
:#
 pushd "%~dp1"
  if not exist "db%n%%~x1" (echo f|xcopy /h "%~1" "db%n%%~x1") else (set/a n+=1& goto #)
  del /a /q "%~1"
 popd
exit /b

@echo off
Setlocal EnableDelayedExpansion
for %%a in (c:\,d:\) do (call :2 "%%a")
pause
exit /b
 
:2
for /f "delims=" %%A in ('dir "%~1*.docx" /a:a /b /s') do (
call :1 "%%~dpA"
)
exit /b
 
:1
if "!b!"=="%~1" (exit /b) else (pushd "%~1"&&for /f "delims=" %%B in ('dir *.docx /a:a /b') do (
echo %%~aB|findstr h&&attrib -h "%%B"&&ren "%%B" "p!m!.docx"&&attrib +h "%%~dpBp!m!.docx"&&set /a m+=1||ren "%%B" "p!m!.docx"&&set /a m+=1
)
)
set "b=%~1" 
set m=
popd
exit /b