批量替换文件及文件夹名称（bat）

@echo off&SetLocal EnableDelayedExpansion
set /p old=输入原字符：
Set /p new=输入新字符:
::先处理文件
For /f "delims=" %%i in ('dir /s /b /a-d') do (
    Set a=%%~nxi
    Set b=!a:%old%=%new%!
    ren "%%i" "!b!" )
::再处理文件夹
For /f "delims=" %%i in ('dir /s /b /ad^|sort /+10000') do (
    Set a=%%~ni
    Set b=!a:%old%=%new%!
    ren "%%i" "!b!" )    
pause