Get Target Path Of Shortcut

[manavo11]

Option Explicit
 
Private Sub Command1_Click()
    MsgBox GetTargetPath("ShortCut Filename")
End Sub
 
Function GetTargetPath(ByVal FileName As String)
 
Dim Obj As Object
Set Obj = CreateObject("WScript.Shell")
 
Dim Shortcut As Object
Set Shortcut = Obj.CreateShortcut(FileName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save
 
End Function