• Home
 · 
• Files/File Controls/Input/Output
 · 
• Get Shortcut's Target

Get Shortcut's Target

After looking all over on VBC 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.

Rate Get Shortcut's Target

• 1
• 2
• 3
• 4
• 5

(11(11 Vote))

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