0 Replies - 665 Views - Last Post: 28 May 2009 - 10:33 AM Rate Topic: -----

#1 sonia.sardana  Icon User is offline

  • D.I.C Head

Reputation: 5
  • View blog
  • Posts: 132
  • Joined: 01-June 08

Get URL of IE favorites

Posted 28 May 2009 - 10:33 AM

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



Is This A Good Question/Topic? 0
  • +

Page 1 of 1