Solved: how to check if a desktop shortcut exists

[drawworkhome]

this is what i came up with and seems to work.[VBA]
'//check if shortcut exists
Set objFileSys = CreateObject("Scripting.FileSystemObject")
If objFileSys.fileexists(szShortcut) Then
MsgBox "shortcut exists"
Else
MsgBox "shortcut does not exist"
' Make it happen
Set oShortcut = oWsh.CreateShortcut(szShortcut)

' Link it to this file
With oShortcut
.TargetPath = szBookFullName
.IconLocation = a & szIconName
' .IconLocation = szPath & szIconName
.Save
End With

End If[/VBA]