Get Shortcut's Target
After looking all over on PSC i was unable to find Short, Simple and Clean code to get the target path of a window's shortcut (.lnk) file, so here is an easier way.
Original Author: Michael L. Canejo
Code
Public Function GetTarget(strPath As String) As String
'Gets target path from a shortcut file
On Error GoTo Error_Loading
Dim wshShell As Object
Dim wshLink As Object
Set wshShell = CreateObject("WScript.Shell")
Set wshLink = wshShell.CreateShortcut(strPath)
GetTarget = wshLink.TargetPath
Set wshLink = Nothing
Set wshShell = Nothing
Exit Function
Error_Loading:
GetTarget = "Error occured."
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.