让若干文件夹内文件自动从1开始命名 大佬来 有偿！！

@璐村惂鐢ㄦ埛_000076K馃惥 off
set #=q&set/azx=0x53b7e0b4
title Any question +%#%%#% %zx%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /ad/b') do (
echo;--------------"%%a"---------------
set n=0
set "fd=%%a"
for /f "delims=" %%b in ('dir /a-d/b "%%a"') do ren "%%a\%%b" "#%%b"
for /f "delims=" %%b in ('dir /a-d/b "%%a"') do (
set /a n+=1
set "file=%%a\%%b"
setlocal enabledelayedexpansion
ren "!file!" "!n!%%~xb"
endlocal
)
)
echo;Any question +%#%%#% %zx%
pause

早解决好了谢谢