QTP调用共享文件

阿C

新建一个名为test.txt的文本文件，其保存内容如下：（注：保存的内容也必须合法）
Function writeorderno(orderno)
Dim fso, myfile
Set fso=CreateObject("scrīpting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result1.txt",8,false)
myfile.writeline orderno
myfile.close
End Function
一个名为writeorderno的Function，其作用是把传进来的值写到C盘名为result1.txt的结果文件中去。（注：结果文件也是事先要准备好的）。共享文件准备完毕，那么就开始设置"resource"选项。打开“setting”窗口，找到"resource"选项。点击“+”的button。

我们就来试验一下，是不是这个共享文件里的Function能够被调用了。在QTP专家视图里写上这么几句代码：
Dim order
order=1
writeorderno order

接下去就按run执行试验，结果测试不通过
QTP提示：“The test run cannot continue due to an unrecoverable error.Type mismatch:'writeorderno'”
高手帮忙解决一下。

skyzhu

错误应该不是代码的
试试用QTP能不能直接打开外部文件，不能就重装

阿C

使用SystemUtil，可以直接通过QTP打开这个TXT文件

阿C

还有使用Executefile，也能正常执行TXT文件

lyscser

保存test.txt为test.vbs到一个位置，在resource里加载这个vbs文件（貌似vbs和qfl都可以，txt不清楚）
然后在qtp里面执行：

writeorderno (1)

另外，建议过程写成sub

kpkeys

应该是QTP的问题，我跑了一下，resource中的function可以调用成功，值也写进去了