@ECHO OFF
:: CNVRTURLNT.BAT
:: Version 2.00 for Windows NT
:: Written by Rob van der Woude
:: Converts Microsoft Internet Explorer Favorites to Netscape Bookmarks file


:: Go to most recent "Favorites" directory if necessary.
:: If you start this batch file in a Favorites directory, this step is skipped
IF EXIST *.URL GOTO Header
CD /D %windir%\PROFILES\%USERNAME%\FAVORITES

:Header
:: If BOOKMARK.HTM already exists we'll just add the "favorites"
:: to the existing file; but first we'll remove the closing tags
IF EXIST BOOKMARK.HTM TYPE BOOKMARK.HTM | FIND /V /I "/DL" > BOOKMARK.HTM
IF EXIST BOOKMARK.HTM GOTO Favorites
:: Create the Bookmark file's header, using the PROMPT
:: and ECHO ON technique to create the HTML tags
PROMPT $L!DOCTYPE NETSCAPE-Bookmark-file-1$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "!DOCTYPE" >> BOOKMARK.HTM
@ECHO OFF
PROMPT $L!-- This is an automatically generated file.$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "--" >> BOOKMARK.HTM
@ECHO OFF
PROMPT It will be read and overwritten.$_Do not edit! --$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "--" >> BOOKMARK.HTM
@ECHO OFF
PROMPT $LTITLE$G's Bookmarks$L/TITLE$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "'s Bookmarks" >> BOOKMARK.HTM
@ECHO OFF
PROMPT $LH1$G's Bookmarks$L/H1$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "'s Bookmarks" >> BOOKMARK.HTM
@ECHO OFF
PROMPT $_$LDL$G$LP$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "DL" >> BOOKMARK.HTM
@ECHO OFF

:Favorites
FOR %%A IN (*.URL) DO CALL :AddURL %%A

:: Footer
PROMPT $L/DL$G$Lp$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "/DL" >> BOOKMARK.HTM
@ECHO OFF
:: Restore default PROMPT
PROMPT $P$G
:: End of main program
GOTO :EOF

:AddURL
:: Parameter is *.URL file name
FOR /F "TOKENS=1,2* DELIMS== " %%A IN ('FIND /I "URL=" %1') DO SET PROMPT=    $LDT$G$LA HREF="%%B"$G%1$L/A$G$_
ECHO ON
@ECHO EXIT | COMMAND | FIND "A HREF=" >> BOOKMARK.HTM
@ECHO OFF
GOTO :EOF