批处理怎么把多个二级目录下多个文件批量更改为所在文件夹名称加序号

@echo off
for /f "delims=" %%a in ('dir /a-d/b/s') do (
    if "%%~nxa" neq "%~nx0" (
        set "fd=%%~dpa"
        set "file=%%a"
        set "filename=%%~nxa"
        setlocal enabledelayedexpansion
        for %%b in ("!fd:~,-1!") do (
            if "%%~nxb" neq "" ren "!file!" "%%~nxb-!filename!"
        )
        endlocal
    )
)
pause