Запускать скрипт, только если файл не существует

Question

В моем VBScript я пытаюсь запустить другой VBScript для создания ярлыка на рабочем столе , если , то ярлык на рабочем столе не существует.Если ссылка на рабочем столе существует, она не должна ничего делать.Однако в настоящее время, даже если ярлык на рабочем столе существует, сценарий VBScript все еще работает.Зачем?Нет синтаксической ошибки.

Dim objFSO, strDirectory, strFile

Set oShell = CreateObject ("WScript.Shell")

'getting script location
strPath = WScript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile)

'define directory & file
strDirectory = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
strFile = strDirectory & "\Desktop\My Program.lnk"

If objFSO.FileExists(strFile) Then
    'DO NOTHING
Else
    strDesk = "desktoplink.vbs"
    oShell.Run strDesk, 0, False
End If

'enclosing path to support spaces
HMIpath = strFolder & "\CHK.bat"
HMIpath = """" & HMIpath & """"

Dim strArgs
strArgs = "cmd /c " & HMIpath
oShell.Run strArgs, 0, False