弱问一个executefile的问题

michaelyung

主文件很简单，就是想测试下调用另一个vbs的情况：
Option Explicit

MsgBox "hehe"
'SystemUtil.Run "iexplore.exe"
ExecuteFile("D:\Project\Mylib\test.vbs")

'JustTest()

test.vbs文件处在上面所述的正确位置：
Public Function JustTest()
        Dim strMsg
        strMsg="in the test.vbs"
   MsgBox strMsg
End Function

可是结果总是通不过。有谁帮我看下吧，总是在ExecuteFile的时候option explicit 报错，而且把它注释掉也报错。
多谢。

Horus_Ra

test.vbs里只不过是个Function，并不是一个可执行文件~~

michaelyung

啊？是这个原因吗？
我之前读的很多代码调用的都只是一个function。我觉得这个类似于Java中的import和C中的include
不知是不是这样理解。

而且help中也说了：
ExecuteFile Statement
Description
Executes the VBScript statements in the specified file. Once the file runs, the the definitions (functions, subroutines, classes, etc.) in the file are available from the global scope of the action's script.

michaelyung

而且我之前读的项目代码中，在所调用的executefile中定义了一些function，并没有执行一些operation
所以我觉得不应该是这个原因。

如果是这个原因，那test.vbs应该怎么改成可执行的呢
举一个简单的例子吧

多谢:)

pldy

我执行了一下，是可以通过的．
先跳出"hehe"
后跳出＂in the test.vbs＂

Horus_Ra

你在test.vbs里写上：
Public Function JustTest()
        Dim strMsg
        strMsg="in the test.vbs"
   MsgBox strMsg
End Function

然后在Test->Settings->Resources中，添加这个文件，然后在代码中打上一句JustTest就行了

michaelyung

我觉得很奇怪的是,我今天将它放在D盘根目录下,结果就好了
觉得很奇怪,难道还跟file的目录地址格式有关系吗?总觉得不太可能啊.

谁能点解一下,非常感谢.

Horus_Ra

目录嘛，也不是没有可能，路径中最好不要带空格、中文字符、特殊字符等等……

michaelyung

问题彻底搞明白了.
单独调用的库vbs文件不能在QTP环境下编辑,单独用editplus等记事本工具编辑,这样就不存在这样的问题了.
我不知道8.2有没有这个问题,我用的是9.0beta版.

这应该是个bug.

xiao*

我也遇到了这样的问题，交流一下好吗？谢谢！！fengyi_3@hotmail.com

walker1020

原帖由 michaelyung 于 2006-4-29 10:30 发表
问题彻底搞明白了.
单独调用的库vbs文件不能在QTP环境下编辑,单独用editplus等记事本工具编辑,这样就不存在这样的问题了.
我不知道8.2有没有这个问题,我用的是9.0beta版.

这应该是个bug.

“单独调用的库vbs文件不能在QTP环境下编辑”， 是什么意思呀？

jackymail

作用就是引入代码，别的什么都没有，把ExecuteFile("D:\Project\Mylib\test.vbs")执行以后，test.vbs所包含的代码就进入了当前执行的程序，在当前程序中可以写入justtest进行调用，因为前面executefile已经把函数对应的代码引入了。

没有什么这个不能编辑那个不能编辑的，看来楼主还是没弄懂！

jackymail

还有补充一下，这个不是vbscript的函数，是qtp中自带的函数。