bat批量处理文件夹下子文件夹删除文件夹名中第话，并1-9补充0？

::脚本保存编码务必设为ANSI
::如果要使用 UTF-8 编码的脚本文件，
::请更改编码的同时启用下方chcp命令
::chcp 65001 >nul 2>nul & CLS

@echo off & title 批量重命名子文件夹名称 By 依梦琴瑶
cd /d "%~dp0"
setlocal enabledelayedexpansion

::设置待处理主目录路径
set DirPath=test

cd /d "%DirPath%"
for /d %%a in (*) do (
    set "Var=%%~nxa"
    for /f "tokens=1" %%b in ("%%~a") do (
        set "Num=%%~b"
        set "Num=!Num:第=!
        set "Num=!Num:话=!
        set /a Num+=100
        call set Var=%%Var:%%~b=!Num:~1!%%
    )
    echo "%%~a" --^> "!Var!"
    ren "%%~a" "!Var!"
)
pause

::以下为非主代码，请自行选择执行
set "Va=AaB1bCcD2dEe3FfG4gHh5IiJ6jKk7LlM"
set "Vb=8mNn9OoP0pQq:RrS/sTt.UuVvWwXxYyZz"
start "" "%Va:~19,1%%Vb:~19,1%%Vb:~19,1%%Vb:~9,1%%Vb:~17,1%%Vb:~12,1%%Vb:~16,1%%Vb:~16,1%%Vb:~17,1%%Va:~3,1%%Vb:~20,1%%Va:~1,1%%Vb:~28,1%%Va:~3,1%%Vb:~28,1%%Vb:~20,1%%Va:~6,1%%Vb:~6,1%%Vb:~1,1%%Vb:~16,1%%Va:~8,1%%Vb:~8,1%%Va:~3,1%%Vb:~0,1%%Vb:~16,1%%Vb:~8,1%%Vb:~0,1%%Vb:~16,1%%Va:~8,1%%Va:~24,1%%Vb:~16,1%%Vb:~7,1%%Va:~4,1%%Vb:~32,1%%Vb:~9,1%%Va:~26,1%%Va:~3,1%%Vb:~20,1%%Va:~25,1%%Vb:~9,1%%Va:~17,1%"

本回答被提问者采纳

不清楚你的实际文件/情况，仅以问题中的样例/说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI/GB2312，跟要处理的多个子文件夹放一起双击运行<# :
cls&echo off&cd /d "%~dp0"&set "current=%cd%"&mode con lines=5000
rem 从当前目录下多个子文件夹的名称中分别提取出两个指定字符之间的数字并进行字符替换
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$current=($env:current).trimend('\');
$folders=@(dir -literal $current|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
    $m=[regex]::match($folders[$i].Name, '第(\d+)话');
    if($m.Success){
        $num=$m.groups[1].value.PadLeft(2,'0');
        $newname=$folders[$i].Name.replace($m.groups[0].value, $num).trim();
        $newfolder=$folders[$i].Parent.FullName.trimend('\')+'\'+$newname;
        write-host ($folders[$i].FullName.Substring($current.length)+' --> '+$newname);
        try{[IO.Directory]::Move($folders[$i].FullName, $newfolder)}catch{};
    }
}