朴老师，请教一个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

欣欣

怎么会有这么多小表情啊？

欣欣

有没有谁能帮我解决这个问题啊？原因到底出在什么地方？：－..........

海龙

Set Fso = CreateObject("Scripting.FileSyetemObject")

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

欣欣

啊！惭愧！谢谢！！！！