' 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



Top 5 B2B SaaS Marketing Agencies for 2023
In recent years, the software-as-a-service (SaaS) sector has experienced exponential growth as more and more companies choose cloud-based solutions. Any SaaS company hoping to stay ahead of the curve in this quickly changing industry needs to invest in effective marketing. So selecting the best marketing agency can mean the difference