@echo off
title 收藏夹链接测试器
echo.&echo by:clamber QQ:282959030 CMD@XP 2008/05/29
echo ──────────────────────────────────────
for /f "tokens=2 delims=:" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Favorites') do (set favor2=%%i)
for /f "tokens=1 delims=:" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Favorites') do (set favor1=%%i)
echo.&echo 当前的收藏夹所在位置是[ %favor1:~-1,1%:%favor2%\ ],默认位置。&echo.
set setpath=%favor1:~-1,1%:%favor2%
set/p setpath= 指定新的位置:
cd/d %setpath%
if not exist "%favor1:~-1,1%:%favor2%\失效的链接" md "%favor1:~-1,1%:%favor2%\失效的链接"
for /f "tokens=1 delims=" %%i in ('dir/a-d/b/d/s *.url') do (
type "%%i" | findstr /i /b "url=">"%temp%\url.txt"
for /f "tokens=2 delims=//" %%a in ('type "%temp%\url.txt"') do (
for /f "tokens=1 delims=/" %%j in ("%%a") do (
set urlfile=%%i
set url=%%j
call :pingurl
)
)
)
del/q/f "%temp%\url.txt">nul 2>nul
echo.&echo 提示:失效的网页链接已转到[ %favor1:~-1,1%:%favor2%\失效的链接\ ]
echo.&echo 全部完成! 任意键退出。。。
pause>nul
exit