Question Get URL of IE favorites

[sonia.sardana]

hey frnds, I want to add all the favorite names & its URL in litsview.I m able to get favorite names but not its urls. Can somebody know how to get URLs.

Code below gets the favorite names-

Private Sub GetFavorites()

              Dim di As DirectoryInfo
        Dim lPos As Integer
        Dim sData As String
        Dim arrFi As FileInfo() = Nothing

        di = New DirectoryInfo("C:\Documents and Settings\Administrator\Favorites")

        arrFi = di.GetFiles("*.*", SearchOption.AllDirectories)
        For Each fi As FileInfo In arrFi
            lPos = InStrRev(fi.FullName, "\", Len(fi.FullName))
            sData = Mid(fi.FullName, lPos + 1)
            sData = Replace(sData, ".url", "")
               Application.DoEvents()
        Next
    End Sub