Создание окна сообщений, который запускает указанную программу (VBS)

Question

Возьмите следующий сценарий, который у меня есть:

x=msgbox ("Do you want to recycle the Premiere Pro Media Cache?" ,4, "Recycle Premiere Pro Media Cache") 

If box =6 Then 
CreateObject("wscript.shell").run "C:\Expedited\Scripts\PrMCRecycler1" 
End If 

Моя цель состоит в том, чтобы получить этот VBS файл (который выводит окно сообщения), чтобы запустить партию файл (так же, как он будет запускаться при двойном щелчке по нему) при нажатии кнопки «Да». Я не уверен, что я делаю неправильно. Когда я нажимаю «Нет», ничего не должно произойти, поэтому я не указал ничего для этого.

В принципе, поскольку он вызывает окно сообщения «да/нет», мне просто нужно заставить кнопку «Да» выполнить указанный командный файл. Я действительно мог бы использовать некоторую помощь в выяснении того, что не так. Когда я пытаюсь выполнить приведенный выше код, ничего не происходит при выборе «да» (кроме диалогового окна).

Answer 1

Попробуйте этот пример и измените путь к вашему пакетному файлу.

Option Explicit 
Dim ws,Question,PathProgram 
Set ws = CreateObject("wscript.shell") 
'change the path of your batch file 
PathProgram = "C:\Program Files\Internet Explorer\iexplore.exe" 
Question = Msgbox("Do you want to recycle the Premiere Pro Media Cache?",VbYesNO + VbQuestion, "Recycle Premiere Pro Media Cache") 
If Question = VbYes Then 
    ws.run DblQuote(PathProgram) 
End If 
'*************************************** 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'***************************************