extract URL from Favorites (.URL Files)

PhilHawks · October 26th, 2004, 09:26 AM

Hello,

I am very new to VB.NET (And programming in general for that matter) and for a first project I am building a small app which requires extracting the Name, URL and IconFile from all the IE Favorites in the folder. I have searched the net endlessly, so far coming up with one or 2 methods but no real way of doing what I need to.

The 2 methods mentioned were either using CSID_InternetShortcut (But this looks VERY difficult, using lots of COMs etc) or simply opening each .URL file and extracting the text I need from inside it.

The contents of a typical .URL file are:

Code:

[DEFAULT]
BASEURL=http://www.google.com/
[InternetShortcut]
URL=http://www.google.com/
Modified=D017B822654EC40139
IconFile=http://www.google.com/favicon.ico
IconIndex=1

I assume that no matter what I do I will need to enumerate the whole folder.

Can anyone point me in the right direction please?

PhilHawks · October 29th, 2004, 10:17 PM

o.k... I have gone down the root of opening each file for its contents. I can get the information I need from the file contents and file name.

All I need to do now is enumerate through the folder and subfolders.

I found a piece of C# code which seems to do the trick but can't figure out how to do the same thing in VB.

Code:

DirectoryInfo di = new DirectoryInfo(System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites));
EnumerateFavorites(di);      

private void EnumerateFavorites(DirectoryInfo dii)
{
    tv.Nodes.Add(dii.FullName);
   int i = tv.Nodes.Count-1;
   foreach(DirectoryInfo dI in dii.GetDirectories())
   {            
       EnumerateFavorites(dI);
   }

   foreach(FileInfo fi in dii.GetFiles())
   {
           tv.Nodes[i].Nodes.Add(fi.FullName);
   }
}

I am getting stuck on the part where the array is prepared.

Code:

    tv.Nodes.Add(dii.FullName);
   int i = tv.Nodes.Count-1;

Can anyone tell me how to achieve this in VB.NET?

Thanks all!

anubhav.kumar · November 2nd, 2004, 04:35 AM

The code in which you are stuck is
*************************************
tv.Nodes.Add(dii.FullName);
   int i = tv.Nodes.Count-1;
**************************************

Please note carefully that 'tv' is actually a tree view.
To use an array instead, you can write

Dim MyArray() as string
Dim i as integer

foreach(FileInfo fi in dii.GetFiles())
   {
       i=i+1
       MyArray(i)=fi.FullName;
   }

Anubhav Kumar