VB.NET/C＃のコードは、私はこのコードを見つけ

Question

いくつかの間違ったパスを生成しますSkype.exeデスクトップリンクは生成します。

C:\Windows\Installer\{...}\SkypeIcon.exe 

は、このための修正はありますか？

Answer 1

これを試してみてください：

Function GetTargetPath(ByVal FileName As String) 

    Dim Obj As Object 
    Obj = CreateObject("WScript.Shell") 

    Dim Shortcut As Object 
    Shortcut = Obj.CreateShortcut(FileName) 
    GetTargetPath = Shortcut.TargetPath 


End Function 

    Private Sub Teste_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

MsgBox(GetTargetPath("C:\ProgramData\Microsoft\Windows\Start Menu\BitTorrent.lnk")) 

'here you chose the location of .lnk file 

End Sub 

Answer 2

CreateShortcutを（）のAdobe ReaderおよびMicrosoft Wordのように、プロパティにターゲットをグレーアウトしている特定のショートカットで期待どおりに動作しません。ターゲットパスは、c：\ windows \ installer（icon？）の下にあるものになります。