标题: QTP调用共享文件 [打印本页] 作者: 阿C 时间: 2010-10-9 13:59 标题: QTP调用共享文件 新建一个名为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'” [attach]65697[/attach] 高手帮忙解决一下。作者: skyzhu 时间: 2010-10-9 14:32
错误应该不是代码的
试试用QTP能不能直接打开外部文件，不能就重装作者: 阿C 时间: 2010-10-9 14:48
使用SystemUtil，可以直接通过QTP打开这个TXT文件作者: 阿C 时间: 2010-10-9 15:08
还有使用Executefile，也能正常执行TXT文件作者: lyscser 时间: 2010-10-9 21:49
保存test.txt为test.vbs到一个位置，在resource里加载这个vbs文件（貌似vbs和qfl都可以，txt不清楚）
然后在qtp里面执行：