ショートカットからフルターゲット文字列を取得する方法

Question

ショートカットファイルから完全なターゲットを取得しようとしています。私は、次の.lnk Dからターゲットを取得する機能を使用する場合

C:\WINDOWS\system32\wscript.exe /e:VBScript.Encode Folder/skype.exe 

：私は、私は、次のターゲットとショートカットの.lnkファイルを持つたとえば、以下の機能に

Public Function GetLnkTarget(lnkPath As String) As String 
     Dim Obj As Object 
     Obj = CreateObject("WScript.Shell") 
     Dim Shortcut As Object 
     Shortcut = Obj.CreateShortcut(lnkPath) 
     Return Shortcut.TargetPath.ToString 
End Function 

を使用しています：\ Shortcut.lnk

GetLnkTarget("D:\Shortcut.lnk") 

私は次の出力

C:\WINDOWS\system32\wscript.exe 

を取得

"/e:VBScript.Encode Folder/skype.exe"が出力にないため、ターゲットの完全な文字列が返されません。

Answer 1

Shortcut.Argumentsプロパティにアクセスする必要があります。ショートカットオブジェクトのリファレンスについては、ここを参照してください。

https://msdn.microsoft.com/en-us/library/f5y78918(v=vs.84).aspx

だからあなたのコードは次のようになります。

Return Shortcut.TargetPath.ToString & " " & Shortcut.Arguments