' 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