尝试打开文件时，ShellExecute引发类型不匹配错误

Question

我正在尝试自动化.application文件以在最终用户计算机上自动打开。我在网上找到的代码说：

Dim my_file

my_file = "c:/location/example.application"

ShellExecute 0, vbNullString, my_file, vbNullString, vbNullString, vbNormalFocus

但是当我尝试运行它时，我在第4行遇到类型不匹配错误，即ShellExecute行。我该如何解决这个问题？

Answer 1

ShellExecute()是Shell Application对象的方法。在调用其中一个方法之前，您需要创建该类的实例：

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute my_file

ShellExecute()的大多数参数都是可选的，如果您愿意，可以省略。

有关信息，请参阅this页面。

另请注意，外部类型库定义的常量（如此处所示）不能立即用于VBScript。这意味着您的脚本无法理解vbNormalFocus。克服这个问题最简单的方法就是自己定义常量。

Const vbNormalFocus = 1