中国DOS联盟

@echo off&setlocal enabledelayedexpansion

for /f "delims=" %%i in ('dir /b /ad') do (

    set str=%%i

    for /f "tokens=2 delims=0123456789" %%a in ("%%i") do (

        set str=!str:%%a=!

        echo ren "%%i" "!str!"

    )

)

pause

@echo off

echo 将重命名 "%cd%\" 下的文件夹名称，新名称为旧名称的前 17 位

set choice=



:input

set /p choice=是否继续(Y/N)? 

if /i "%choice%" equ "n" exit /b

if /i "%choice%" neq "y" goto input



for /f "delims=" %%a in ('dir /a:d /b') do (

    set var=%%a

    setlocal enabledelayedexpansion

    ren "!var!" "!var:~,17!"

    endlocal

)

echo 重命名完成。请按任意键退出...

pause>nul