Finns det något sätt att i VBA läsa URL-en i en internet-genväg?
Har försökt att använda FileSystemObject och GetFile men den anser inte att genvägen är en fil.

/Karin

det är en text fil...

Sub ReadInfoFromURL_LNK()
Dim InputString As String, FileNum As Integer
    FileNum = FreeFile ' next free filenumber
    Open "C:\gs.url" For Input As #FileNum
    While Not EOF(FileNum)
    i = i + 1
        Line Input #FileNum, InputString ' read a line from the textfile
     Cells(i, 1) = InputString ' do something with the string
    Wend
    Close #FileNum
End Sub

Hej Karin!

här är ett exempel för Word VBA:

Sub ListFavorites()
    Dim sPath As String
    Dim sFile As String
    
    sPath = "C:\Documents and Settings\Åsa\Favoriter\Programmering\VBA\"
    sFile = Dir(sPath & "*.url")
    Do While sFile <> ""
        Debug.Print sFile, System.PrivateProfileString(sPath & sFile, "InternetShortcut", "URL")
        sFile = Dir
    Loop
End Sub