如果Then Else不會啓動vbNo

Question

當按下「是」時，該代碼應該打開一個腳本來模擬計時器，或者在按下「否」時打開腳本以模擬鬧鐘。當按下「是」時，它按預期工作，但當按下「否」時，它仍然打開定時器腳本而不是鬧鐘。

Pick = MsgBox("Do you want a Timer?", 4+32, "Choose one") 
If vbYes Then 
    CreateObject("WScript.Shell").Run("""C:\Users\Username\Documents\Applications\Reminder\Reminder Script.vbs""") 
    WScript.Quit 
Else 
    CreateObject("WScript.Shell").Run("""C:\Users\Username\Documents\Applications\Alarm\Alarm Script.vbs""") 
    WScript.Quit 
End If 

Answer 1

AFAIK你可以這樣做兩種方式（請參閱下面 - 請原諒語法）。該如果...那麼...其他方法由GSerg和評論你的問題pinkfloydx33回答...

set wshell = createobject("wscript.shell") 

'**If...Then...Else** 

pick = msgbox("Do you want a timer?", 4+32, "Choose one") 
if pick = vbyes then 
'wshell.run("""c:\users\username\documents\applications\reminder\reminder script.vbs""") 
wscript.echo "Reminder" 
else 
'whsell.run("""c:\users\username\documents\applications\alarm\alarm script.vbs""") 
wscript.echo "Alarm" 
end if 

'**Select...Case** 

pick = msgbox("Do you want a timer?", 4+32, "Choose one") 
select case pick 
case vbyes 
'wshell.run("""c:\users\username\documents\applications\reminder\reminder script.vbs""") 
wscript.echo "Reminder" 
wscript.quit 
case vbno 
'whsell.run("""c:\users\username\documents\applications\alarm\alarm script.vbs""") 
wscript.echo "Alarm" 
wscript.quit 
end select 

希望這有助於。

此外，MSDN VBScript User guide可能有助於更好地解釋變量等