Windows 列出文件名过长的WinXP文件

您能推荐一种方法来列出WinXP磁盘上总文件名为drive+folder+subfolder+filename+ext大于某个值或MAX\u PATH的文件吗？理想情况下，这将是批处理或VB脚本。提前谢谢

@echo off
setlocal
if "%~1%~2"=="%~2%~1" (
    echo Usage: drive maxlength
    echo Example: %0 d: 200
    goto :EOF
)
for /F %%A in ('dir /S/B/A:-D "%~d1\*" 2^>nul') do call :chkpath "%%~A" %2
goto :EOF
:chkpath
set #=%~1%
set len=0
:longer
if defined # (set "#=%#:~1%"&set /A len += 1&goto longer)
if %len% GTR %2 echo.%~1
goto :EOF

我想windows脚本主机会更快