cls&setlocal  ENABLEDELAYEDEXPANSION
@echo  将去掉文件夹名中的数字和点号1234567890 .
@echo  请输入你额外需要去掉的字符并回车
@echo  无也请回车，在这个界面里同样可以使用输入法：
set /p var=
for /f "delims=" %%a in ('dir /ad /b /s') do (
    set name=%%~na
    set name2=%%~xa
    for %%j in (0 1 2 3 4 5 6 7 8 9 . !var!) do set name=!name:%%j=!
    call ren "%%a" "!name!!name2!"
)
复制代码

@echo off&setlocal enabledelayedexpansion
set /p str=请输入过滤字符(或直接回车)：
for /f "delims=" %%a in ('dir /ad /b /s ^|sort /r') do (
	set s=%%~na
	set k=1
	for %%b in (0 1 2 3 4 5 6 7 8 9 . !str!) do (
		set s=!s:%%b=!
		if "!s!"=="" (set k=0)
	)
	if !k! equ 0 (
		echo 目录名不能为空
		echo “%%a”
	) else (
		ren "%%a" "!s!"||echo “%%a”
	)
)
echo 执行完毕！
pause>nul
复制代码

cls&setlocal  ENABLEDELAYEDEXPANSION
@echo  将去掉文件夹名中的数字和点号1234567890 .
@echo  请输入你额外需要去掉的字符并回车
@echo  无也请回车，在这个界面里同样可以使用输入法：
set /p var=
for /f "delims=" %%a in ('dir /ad /b /s ^|sort /r') do (
    set name=%%~na
    set name2=%%~xa
    for %%j in (0 1 2 3 4 5 6 7 8 9 . !var!) do set name=!name:%%j=!
    call ren "%%a" "!name!!name2!"
)
复制代码

@echo off
set "s=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
for /f "delims=" %%i in ('dir /b /s /ad^|findstr "[^\\]*[0-9][^\\]*$"^|sort /r') do (
    set "name=\%%~nxi"
    cd /d "%%~dpi"
    setlocal enabledelayedexpansion
    for /l %%j in (0 1 9) do set "name=!name:%%j=!"
    set "newName=!name!"
    for %%j in (%s%) do (
        if exist ".!newName!" set "newName=!name!_%%j"
    )
    for %%j in ("!newName:~1!") do (
        endlocal
        ren "%%i" "%%~nxj"
    )
)
pause
复制代码

dir -Include *[0-9]* -Recurse | ?{$_ -is [System.IO.DirectoryInfo]} | `
Sort FullName -Desc | %{
    $Path = $_.FullName -replace '(.+\\).+$', '$1'
    $Name = $_.Name -replace '\d+', ''
    $n = 0; $NewName = $Name
    while(test-Path -LiteralPath ($Path + $NewName)) {
        $n1 = [math]::Truncate($n/26) + 65
        $n2 = $n % 26 + 65; $n += 1
        $NewName = $Name + '_' + [char][int]$n1 + [char]$n2
    }
    move -LiteralPath $_.FullName -Dest ($Path + $NewName)
}
复制代码