Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set ThisFolder=fso.GetFolder(".")
For Each file In thisfolder.Files
	FileBaseName=fso.GetBaseName(File.Name)
	FileExtName=fso.GetExtensionName(File.Name)
	
	[判断] = True
	While [判断]
		If Clng("&H" & Hex(Asc(Right(FileBaseName,1)))) > 255 Then
			FileBaseName=Left(FileBaseName,Len(FileBaseName)-1)
		Else
			[判断]=False
		End If
	Wend
	
	fso.MoveFile file.Path,file.ParentFolder&"\"&FileBaseName&"."&FileExtName
Next
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /ad /s') do (
    set "fn=%%~nxa"
    set "fnw=%%~nxa"
    for /f "tokens=1-5 delims=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.- " %%1 in ("%%~nxa") do (
        if not "%%1%%2%%3%%4%%5"=="%%~a" (
            call :change %%1 %%2 %%3 %%4 %%5 
        ) else (
            ren "!fn!" chunhanzi 2>nul || ren "!fn!" chunhanzi_1
        )
    )
)
echo;处理完毕&pause>nul&exit /b

:change
for %%b in (%1 %2 %3 %4 %5) do set "fnw=!fnw:%%b=!"
set "fnw=!fnw: =!"
ren "!fn!" "!fnw!" 2>nul ||ren "!fn!" "!fnw!_1"
goto :eof
复制代码

@echo off
powershell ^
    ^<#去掉-r则不处理子文件夹#^>^
    dir . -r^|?{$_ -is [System.IO.DirectoryInfo]}^|^
    sort {$_.FullName.length} -desc^|%%{^
        $tmpname=($_.Name -replace '[\u4e00-\u9fa5]').trim();^
        write-host $_.FullName.replace('%~dp0','.\') -nonewline;^
        if($tmpname -and ($tmpname -ne $_.Name)){^
            $newname=$_.Parent.FullName+'\'+$tmpname;^
            $n=0;^
            while(Test-Path -LiteralPath $newname){^
                $n++;^
                $newname=$_.Parent.FullName+'\'+$tmpname+'_'+$n;^
            };^
            mv -LiteralPath $_.FullName $newname;^
            write-host (' --^> '+($newname.split('\')[-1])) -ForegroundColor green;^
        }else{^
            write-host ' --^> 为纯汉字或不含汉字，不处理' -ForegroundColor red;^
        }^
    }
pause
复制代码

@echo off
setlocal enabledelayedexpansion
echo;请将需要处理的文件夹拖放进本窗口
set /p folder=
for /f "delims=" %%i in ('dir /ad /s /b %folder%') do set/a n+=1&&set .!n!=%%~fi
(for /l %%n in (!n!,-1,1) do if defined .%%n echo;!.%%n!)>tmp.x
for /f "delims=" %%a in (tmp.x) do (
    cd /d "%%~fa"\..
    set "fn=%%~nxa"
    set "fnw=%%~nxa"
    for /f "tokens=1-5 delims=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-." %%1 in ("%%~nxa") do (
        if not "%%1%%2%%3%%4%%5"=="%%~nxa" (
            call :change "%%1" "%%2" "%%3" "%%4" "%%5" 
        ) else (
            call :chun
        )
    )
)
cd /d "%~dp0"&del /f /q tmp.x
echo;处理完毕&pause>nul&exit /b

:change
for %%b in (%~1 %~2 %~3 %~4 %~5) do set "fnw=!fnw:%%b=!"
set "fnw=!fnw: =!"
set /a m=1
if exist !fnw! (
    :judge
    if exist !fnw!_!m! (  
        set /a m+=1
        goto judge
    )
ren "!fn!" "!fnw!_!m!" 
goto :eof
)
ren "!fn!" "!fnw!"
goto :eof

:chun
set /a m=1
if exist chunhanzi (
    :panduan
    if exist chunhanzi_!m! (
        set /a m+=1
        goto panduan
    )
ren "!fn!" chunhanzi_!m!
goto :eof
)
ren "!fn!" chunhanzi
goto :eof
复制代码

@echo off
powershell ^
    ^<#去掉-r则不处理子文件夹#^>^
    dir . -r^|?{$_ -is [System.IO.DirectoryInfo]}^|^
    sort {$_.FullName.length} -desc^|%%{^
        $tmpname=($_.Name -replace '[\u4e00-\u9fa5]').trim();^
        write-host $_.FullName.replace('%~dp0','.\') -nonewline;^
        if($tmpname -and ($tmpname -ne $_.Name)){^
            $newname=$_.Parent.FullName+'\'+$tmpname;^
            if(Test-Path -LiteralPath $newname){^
                dir -LiteralPath $_.FullName^|%%{^
                    $subname=$newname+'\'+$_.Name;^
                    $n=0;^
                    while(Test-Path -LiteralPath $subname){^
                        $n++;^
                        if($_ -is [System.IO.DirectoryInfo]){^
                            $subname=$newname+'\'+$_.Name+'_'+$n;^
                        }else{^
                            $subname=$newname+'\'+$_.BaseName+'_'+$n+$_.Extension;^
                        };^
                    };^
                    mv -LiteralPath $_.FullName $subname;^
                };^
                del -LiteralPath $_.FullName -Force;^
                write-host (' --^> '+($newname.split('\')[-1])+' 重名项，合并处理') -ForegroundColor yellow;^
            }else{^
                mv -LiteralPath $_.FullName $newname;^
                write-host (' --^> '+($newname.split('\')[-1])) -ForegroundColor green;^
            };^
        }else{^
            write-host ' --^> 为纯汉字或不含汉字，不处理' -ForegroundColor red;^
        }^
    }
pause
复制代码