$folder = "d:\folder"
$max =140
Get-ChildItem $folder -Recurse | ForEach-Object {
	$str1 = $_.FullName -replace "[0-9a-zA-Z:\\\-.]",""
	$len = $str1.Length *2 + $_.FullName.Length
	if ( $len -gt $max ) {
		"{0:d3} {1}" -f $len , $_.FullName
	}
}
复制代码

 | Out-File list.txt
复制代码

#/&cls&pause&powershell -c "type -literalpath '%~f0'|out-string|iex"&pause&exit

$themax=140

cmd /c cd.>___list.txt
(gci -r) |?{
$l=0
$_.fullname.tochararray().foreach({
if([int]$_ -gt 127){$l+=3}else{$l+=1}
})
if($l -gt $themax){1}else{0}
} |%{$_.fullname
} |sc ___list.txt
复制代码

@echo off
if "%~1"=="" (set "n=140") else set "n=%~1"
(for /f "delims=" %%F in ('dir/s/b/a-d') do (set/p="%%~nF"<nul>0.0 &for /f %%v in ("0.0") do if %%~zv gtr %n% echo,%%F))>结果.lst
del 0.0 & exit/b
复制代码

@echo off
set /p n=请输入字符长度，回车默认140：
if not defined n set n=140
for /f "delims=" %%F in ('dir/b/s/a-d') do (
	if not exist "temp.vbs" call :vbs
	for /f  %%a in ('cscript  //nologo temp.vbs "%%~nxF"') do if %%a gtr %n% echo,%%F------字符长度：%%a >>超长名单.txt
)
del temp.vbs & exit

:vbs
(echo Dim regex, str, result
echo Set regex = New RegExp
echo regex.Pattern = "[A-Za-z0-9]"
echo regex.Global = True
echo str = WScript.Arguments.Item(0^) 
echo OGC=Len(str^)
echo result = regex.Replace(str, ""^)
echo NAC=Len(result^)
echo wscript.echo OGC+NAC*2
)> temp.vbs
goto:eof 
复制代码