Function GetTargetPath (Byval LinkName As String) On Local Error Resume Next Dim Obj As Object Set Obj = CreateObject ("wscript.shell")
Dim Shortcut As Object Set Shortcut = Obj.createshortcut (LinkName) getTargetPath = Shortcut.targetPath Shortcut.save
END FUNCTION
