Hur ska jag gå tillväga för att få mitt program att köra en Genväg, d.v.s en Lnk fil?

har hittat en lösning nu...

Och det var..? Det _kan_ ju vara intressant för andra.

Jag gjorde så här:

<code>
Public Function GetTarget(strPath As String) As String
' Hämtar målet från en lnk fil
On Error GoTo Error_Loading
Dim wshShell As Object
Dim wshLink As Object
Set wshShell = CreateObject("WScript.Shell")
Set wshLink = wshShell.CreateShortcut(strPath)
GetTarget = wshLink.TargetPath
Set wshLink = Nothing
Set wshShell = Nothing
Exit Function
Error_Loading:
GetTarget = "Error occured."
End Function

Private Sub Form_Load()

Dim shortcut As String
shortcut = GetTarget( "C:\genväg.lnk")
msgbox shortcut
End Sub
</code>