Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Sep 29, 2003

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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap