' Present Web Browser Favourites in Dropdown on Local Web Server MyFavourites.html
Imports System
Imports System.IO
Module Module1
Sub Main()
Dim ourpath As String = Environment.GetEnvironmentVariable("PATH")
Dim iplace As Integer = ourpath.ToLower().IndexOf("easyphp")
Dim jplace As Integer
Dim localrootdir As String = ""
Dim localrootfile As String = ""
If iplace > 0 Then
jplace = iplace
While (jplace < ourpath.Length And ourpath.Substring(jplace, 1) <> "\" And ourpath.Substring(jplace, 1) <> ";")
localrootdir = localrootdir + ourpath.Substring(jplace, 1)
jplace = jplace + 1
End While
jplace = iplace - 1
While (jplace > 0 And ourpath.Substring(jplace, 1) <> ";")
localrootdir = ourpath.Substring(jplace, 1) + localrootdir
jplace = jplace - 1
End While
localrootdir = localrootdir + "\www\"
Dim fplace As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
Dim ourdi As DirectoryInfo = New DirectoryInfo(fplace + "\")
Dim ourfls() As FileInfo = ourdi.GetFiles("*.url", SearchOption.AllDirectories)
Dim ourfl As FileInfo
Dim baseurl As String = ""
Dim cnt As Integer = 0
For Each ourfl In ourfls
If localrootfile.Length = 0 Then
localrootfile = "MyFavourites.html"
System.IO.File.WriteAllText(localrootdir + localrootfile, "Your Favourites