Check desktop shortcut exist

[Av8tordude]

I found many topics on this subject, but could not find any that will work with this code. Can someone assist with checking if a desktop shortcut exsit.

thank you kindly

Sub IconShortcut()
With CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & ThisWorkbook.Name & ".lnk")
    .targetpath = ThisWorkbook.FullName
    .IconLocation = ThisWorkbook.Path & "\Name.ico"
    .Save
End With
End Sub

 

[John_w]

The Dir function should work:

    Dim shortcutFile As Variant

    shortcutFile = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & ThisWorkbook.Name & ".lnk"
    If Dir(shortcutFile) <> vbNullString Then
        'shortcut exists
    End If

 

[Av8tordude]

Thank you John for you assistance and expertise! Greatly appreciated.