GetUrlFromLinkFile - Retrieve the Url pointed by a link (*.url) file

' Get the Url pointed by the input link (*.url) file
'
' Example: print the Url of all the link files in the Favorites folder
'   Dim filePath As String
'   For Each filePath In System.IO.Directory.GetFiles( '       
' Environment.GetFolderPath(Environment.SpecialFolder.Favorites), "*.url")
'       Debug.WriteLine(System.IO.Path.GetFileNameWithoutExtension(filePath) & 
'           " = " & GetUrlFromLinkFile(filePath))
'   Next

Function GetUrlFromLinkFile(ByVal linkFile As String) As String
    Dim sr As System.IO.StreamReader
    Dim content As String

    ' exit if not a .URL file
    If Not linkFile.EndsWith(".url") Then Exit Function

    Try
        sr = New System.IO.StreamReader(linkFile)
        ' read the file's content
        content = sr.ReadToEnd()
    Finally
        If Not sr Is Nothing Then sr.Close()
    End Try

    If content.Length = 0 Then Exit Function

    ' extract the URL value
    Dim startIndex As Integer = content.IndexOf("URL=")
    If startIndex = -1 Then Exit Function
    startIndex += 4
    Dim endIndex As Integer = content.IndexOf(Environment.NewLine, _
        startIndex + 1)
    Return content.Substring(startIndex, endIndex - startIndex)
End Function