Extract Target path from a shortcut
Hi Jason,
Try something like:
'=============
Public Sub Tester()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim sDesktoPath As String
Const sShortcutName As String = "YourShortcutName"
Set WSHShell = CreateObject("WScript.Shell")
sDesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(sDesktopPath _
& "\" & sShortcutName & ".lnk")
MsgBox MyShortcut.TargetPath
End Sub
'<<=============
---
Regards,
Norman
"WhytheQ" wrote in message
oups.com...
I know how to add a target path to a created shortcut:
Dim WSHShell As Object
Dim MyShortcut As Object
Set WSHShell = CreateObject("WScript.Shell")
Set MyShortcut = WSHShell.CreateShortcut(pathwayhere & ".lnk")
With MyShortcut
.targetpath = targetpathwayhere
.Save
End With
........but if I already have a created shortcut then how do I extract
the target pathway from it, as a string??
any help greatly appreciated
Jason.
|