Vbscript VBS-不工作脚本

我有一个无法工作的VBScript。当我在弹出窗口上按“是”时，它会显示错误。请帮忙。谢谢

代码：

result = MsgBox ("Yes or No?", vbYesNo, "Start Web")

Select Case result
 Case vbYes
    shell.CurrentDirectory = "My Directory"
    shell.Run "startweb.bat"
 Case vbNo
End Select

当我按“是”时，一个名为：

startweb

当我在弹出窗口上按“是”时，它会显示错误。

什么错误

• Microsoft VBScript运行时错误：需要对象

  ，或

• 系统找不到指定的文件

  ，或
• 还有别的吗

解决方案：

案例˙需要对象`:

Set Shell = WScript.CreateObject("WScript.Shell")       ''' add this line

result = MsgBox ("Yes or No?", vbYesNo, "Start Web")

Select Case result
    Case vbYes
        shell.CurrentDirectory = "My Directory"
        shell.Run "startweb.bat"
    Case vbNo
End Select    

案例文件丢失：使用指向

“我的目录”

的完全限定路径，例如

“c:\tests\My Directory”

---

其他情况：无法解决；您的问题并添加更多信息。

它只是说“错误”？是否定义了

shell

？我假设“我的目录”也是Stackoverflow的一个fakey，是bat文件的完整路径，对吗？我会正确标记你的，但我已经修复了我的。我以为帖子被删除了，所以没有回复。下面是我如何修复它的：

result=MsgBox（“开始学校流媒体？”，vbYesNo，“开始学校弹出”）选择案例结果案例vbYes Set objShell=CreateObject（“WScript.Shell”）objShell.CurrentDirectory=“C:\Users\Kiril\Desktop\code\EXTRA”objShell.Run“startweb.bat”案例vbNo End Select