devxlogo

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

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))'   NextFunction 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

devx-admin

Share the Post: