VB Script для удаления ярлыка рабочего стола

Question

Мне нужна помощь с этим скриптом. Этот скрипт создает новый ярлык на рабочем столе, а затем удаляет другой. Однако я хочу, чтобы он удалял один ярлык на рабочем столе, если он существует, или другой, если он существует. Не знаете, как это сделать. Я добавил два разных ярлыка после «fso.deletefile», но я не уверен, какой синтаксис использовать (как это сказать). Я новичок в vbs. Заранее спасибо за помощь.

L_Welcome_MsgBox_Message_Text = "A shortcut to the PM Master" & vbcrlf & "will be created on your desktop." 
L_Welcome_MsgBox_Title_Text ="Windows Scripting Host Sample" 

Call Welcome() 

Dim WSHShell 
Set WSHShell =CreateObject("WScript.Shell") 

Dim MyShortcut, MyDesktop, DesktopPath 
' Read desktop path using WshSpecialFolders object 
DesktopPath =WSHShell.SpecialFolders("Desktop") 
' Create a shortcut object on the desktop 
Set MyShortcut =WSHShell.CreateShortcut(DesktopPath & "\PM-Master-ALL.lnk") 
' Set shortcut object properties and save it 
MyShortcut.TargetPath =WSHShell.ExpandEnvironmentStrings("c:\Local Cloud\Shared\Sites\Bailey Lane\PM-Master-ALL") 
MyShortcut.Save 
Set Shell = CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject") 
DesktopPath = Shell.SpecialFolders("Desktop") 
FSO.DeleteFile DesktopPath & "\PM Master - ALL.lnk" 
FSO.DeleteFile DesktopPath & "\PM Master - ALL - Shortcut.lnk" 


WScript.Echo "A shortcut to the PM Master has been successfully created. The older PM Master shortcut has been deleted." 

Sub Welcome() 
    Dim intDoIt 
    intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, vbOKCancel + vbInformation, L_Welcome_MsgBox_Title_Text) 
    If intDoIt = vbCancel Then 
    WScript.Quit 

End If 
End Sub 

Answer 1

В случае сомнений прочитайте documentation. Вы можете использовать метод FileExists, чтобы проверить, существует ли файл до его удаления:

shortcut = DesktopPath & "\PM Master - ALL.lnk" 
If FSO.FileExists(shortcut) Then FSO.DeleteFile shortcut