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

按说老师写的没错。

lovetest6

想必是你和老师机器的环境不一样。
这个东东说来话长了。

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

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

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

MS去MS问。呵呵：）

欣欣

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

QA_BAY

我觉得你应该回去问你的老师!
有时候出现问题有很多种!
像LOVETEST6说得对!

lovetest6

报的是什么错误呢？
把你的截图法上来，
如果你认为是QTP报的。那你应该在QTP里面能够找到答案的。