51Testing软件测试论坛

标题: qpt课程学习中遇到问题了 [打印本页]

作者: 欣欣 时间: 2005-12-5 18:35
标题: qpt课程学习中遇到问题了
在qpt学习的课程中，我参考老师的例子，放到自己的本机上运行，报错，提示：
ActiveX 部件不能创建对象: 'Scripting.FileSyetemObject'
Line (17): "Set Fso = CreateObject("Scripting.FileSyetemObject")".
但是我又看不出问题在哪里，老师的例子中也是那样写的。

请问这段代码的问题究竟在什么地方？？

Dim Fso,TheFile,ReadString
Dim iPos,iLen
Dim TestNumerOne,TestNumerTwo

Const ForReading=1

Set Fso = CreateObject("Scripting.FileSyetemObject")
Set TheFile=Fso.OpenTextFile("E:\测试\代码练习\计算器加法用例.txt",ForReading,false)

do while TheFile.AtEndOfLine <> true
ReadString=TheFile.ReadLine

iPos=instr(1,ReadString,",",1)
iLen=Len(ReadString)
TestNumerOne=Left(ReadString.iPos-1)
TestNumerTwo=Right(TeadString.iLen-iPos)

'点击按钮1
   Window("计算器_2").WinButton(TestNumerOne).Click
   Window("计算器_2").WinButton("+").Click
   Window("计算器_2").WinButton(TestNumerTwo).Click
   Window("计算器_2").WinButton("=").Click
   Window("计算器_2").Close

Loop

TheFile.Close

Set TheFile=Nothing
Set Fso=Nothing

作者: lovetest6 时间: 2005-12-5 18:36
按说老师写的没错。

作者: lovetest6 时间: 2005-12-5 18:39
想必是你和老师机器的环境不一样。
这个东东说来话长了。

你用得什么系统啊？？
另外你.....算了，慢慢说吧。呵呵。要问的比较多。

或许你的机器上禁用这个对象。

另外....这个错误是谁报出来了？
MI的QTP，还是MS的windows啊？？

MS去MS问。呵呵：）

作者: 欣欣 时间: 2005-12-5 18:52
我用的是Win2000系统，错误是MI的QTP报出来的。这个应该跟系统没有关系吧，QPT会挑系统吗？或者说在配置QTP时，需要什么设置吗？我在按照时都是默认选项进行安装的。

作者: QA_BAY 时间: 2005-12-6 09:48
我觉得你应该回去问你的老师!
有时候出现问题有很多种!
像LOVETEST6说得对!

作者: lovetest6 时间: 2005-12-6 09:50
报的是什么错误呢？
把你的截图法上来，
如果你认为是QTP报的。那你应该在QTP里面能够找到答案的。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)