Getting a target Path from having the path name as a string

[NyNyHelp]

I have the shortcut path name as a string "C:\test\batch1 .bat.lnk" for example. Is there anyway I can get the target path from that. I'm using VB 2005 Express

[hariharanmca]

I have the shortcut path name as a string "C:\test\batch1 .bat.lnk" for example. Is there anyway I can get the target path from that. I'm using VB 2005 Express

Private Sub Command1_Click()
    MsgBox GetTargetPath("ShortCut Filename")
End Sub

Pivate Function GetTargetPath(ByVal FileName As String)
    Dim Obj As ObjectSet
    Obj = CreateObject("WScript.Shell")
    Dim Shortcut As ObjectSet
    Shortcut = Obj.CreateShortcut(FileName)
    GetTargetPath = Shortcut.TargetPathShortcut.Save
End Function

i think this will help you

[NyNyHelp]

Private Sub Command1_Click()
    MsgBox GetTargetPath("ShortCut Filename")
End Sub

Pivate Function GetTargetPath(ByVal FileName As String)
    Dim Obj As ObjectSet
    Obj = CreateObject("WScript.Shell")
    Dim Shortcut As ObjectSet
    Shortcut = Obj.CreateShortcut(FileName)
    GetTargetPath = Shortcut.TargetPathShortcut.Save
End Function

i think this will help you

It states that Type ObjectSet is not defined. How do I fix that?

[hariharanmca]

It states that Type ObjectSet is not defined. How do I fix that?

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

okay, its an typo.....

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

[NyNyHelp]

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

okay, its an typo.....

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

I really appreciate all the help. I am receiving this error when I debug at the line
GetTargetPath = Shortcut.Target PathShortcut.Sa ve

Public member 'TargetPathShor tcut' on type 'IWshShortcut' not found.

[NyNyHelp]

Awesome I got it! My final code is:



Private Sub Command1_Click( )

MsgBox GetTargetPath(" ShortCut Filename")

End Sub


Private Function GetTargetPath(B yVal FileName As String)

Dim Obj As Object

Obj = CreateObject("W Script.Shell")

Dim Shortcut As Object

Shortcut = Obj.CreateShort cut(FileName)

GetTargetPath = Shortcut.Target Path
End Function


Thank you so much!