Я нашел этот код:
Public Shared Function GetLnkTarget(ByVal lnkPath As String) As String
Dim shl = New Shell32.Shell()
' Move this to class scope
lnkPath = System.IO.Path.GetFullPath(lnkPath)
Dim dir = shl.[NameSpace](System.IO.Path.GetDirectoryName(lnkPath))
Dim itm = dir.Items().Item(System.IO.Path.GetFileName(lnkPath))
Dim lnk = DirectCast(itm.GetLink, Shell32.ShellLinkObject)
Return lnk.Target.Path
End Function
Он работает для некоторых файлов .lnk, но, например, если я добавлю ссылку на рабочий стол Skype.exe, он выдаст:
C:\Windows\Installer\{...}\SkypeIcon.exe
Isесть ли исправление для этого?