51Testing软件测试论坛

标题: 朴老师，请教一个qtp问题 [打印本页]

作者: 欣欣 时间: 2005-12-10 22:10
标题: 朴老师，请教一个qtp问题
我是一名网上学员，在网上学习不比和大家一起学习，可以讨论。我现在在网上遇到了一个问题，不知道是怎么回事。在课堂上，您举了一个例子，就是关于计算器任意一位数相加的例子。我在本机上调试了一下，运行时报错：在Details 下面提示：
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

作者: 欣欣 时间: 2005-12-10 22:11
怎么会有这么多小表情啊？

作者: 欣欣 时间: 2005-12-14 08:49
有没有谁能帮我解决这个问题啊？原因到底出在什么地方？：－..........

作者: 海龙 时间: 2005-12-14 11:58
Set Fso = CreateObject("Scripting.FileSyetemObject")

你的代码错了一个字母FileSyetemObject应该为FileSystemObject
你将system拼成了syetem

作者: 欣欣 时间: 2005-12-16 12:48
啊！惭愧！谢谢！！！！

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