I want to extract all the URLs of favorites.
Mine code is as below-
Code is adding all the Items into Listview. I want that on ListView_Click,dat site is opened.
Private Sub GetFavorites()
Dim lvitem As ListViewItem
Dim di As DirectoryInfo
Dim lPos As Integer
Dim sData As String
Dim arrFi As FileInfo() = Nothing
di = New DirectoryInfo(GetSpecialFolder(SPECIAL_FOLDER.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", "")
GetIcon(fi.FullName)
lvitem = LvwFavorites.Items.Add(sData, ImgIcons.Images.Count - 1)
Application.DoEvents()
Next
End Sub