for /f "skip=4 tokens=2*" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Favorites') do set "favor=%%b"
for /f "delims=" %%a in ('dir /s/b/on "%favor%"') do (
if exist "%%a\" (
echo ^<b^>%%~na^</b^>^<br^> >>bookmark.htm
) else (
for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm