Удалить Ярлык

Option Explicit
 
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public Sub CreateShortcutDEMO()
              
    Dim WshShell            As Object
    Dim MyShortcut          As Object
    Dim MyDesktop           As String
    Dim DesktopPath         As String
    Dim strFilePath         As String
    Dim Des                 As Long
    
        On Error Resume Next
    
            Set WshShell = CreateObject("WScript.Shell")
            DesktopPath = WshShell.SpecialFolders("Desktop") & "\Site*.lnk"
        
            strFilePath = "cmd.exe /C del " & Chr(34) & DesktopPath & Chr(34) & " /q"
            Shell strFilePath, vbHide
            Sleep (200)
            
            DesktopPath = WshShell.SpecialFolders("Desktop")
            Set MyShortcut = WshShell.CreateShortcut(DesktopPath & "\Site.lnk")
            MyShortcut.TargetPath = (App.Path & "\Site.exe")
            MyShortcut.Arguments = "/DEMO"
            MyShortcut.WorkingDirectory = WshShell.ExpandEnvironmentStrings(App.Path)
            MyShortcut.WindowStyle = 4
            MyShortcut.IconLocation = WshShell.ExpandEnvironmentStrings(App.Path & "\Site.exe, 0")
            MyShortcut.save
            
            Des = FindWindow("Progman", "Program Manager")
            SetForegroundWindow (Des)
            SendKeys "{F5}"
End Sub

    Dim DesktopPath        As String
    Dim strFilePath          As String
    
    Set WshShell = CreateObject("WScript.Shell")
    DesktopPath = WshShell.SpecialFolders("Desktop") & "\Site*.lnk"
        
    strFilePath = "cmd.exe /C del " & Chr(34) & DesktopPath & Chr(34) & " /q"
    Shell strFilePath, vbHide