51Testing软件测试论坛

标题: 在QTP运行,出现.ActiveX部件不能创建对象:'scripting.filesystemobject' [打印本页]

作者: songyq521    时间: 2007-9-25 13:05
标题: 在QTP运行,出现.ActiveX部件不能创建对象:'scripting.filesystemobject'
Function Replace_str(oldstr,newstr)
Set fso = CreateObject("scrīpting.FileSystemObject")
Set MyFilebak = fso.CreateTextFile("c:\testbak.txt", True)
MyFilebak.close
Set CreFile = fso.GetFile("c:\test.txt")
CreFile.Copy ("c:\testbak.txt")
Set MyFilebak=fso.OpenTextFile("c:\testbak.txt", 1, false)
Set theFile = fso.OpenTextFile("c:\test.txt", 2, True)
Do While MyFilebak.AtEndOfStream <> True
      retstring = MyFilebak.ReadLine
          If retstring=oldstr Then
                  theFile.WriteLine newstr

                  else
                            theFile.WriteLine retstring
          End If

   Loop
   MyFilebak.close
Set DelFile = fso.GetFile("c:\testbak.txt")
DelFile.Delete
   theFile.Close
   ReadEntireFile = retstring
End Function

Call Replace_str("#orcal=true","orcal=true")
Call Replace_str("MySQL=true","#MySQL=true")


在QTP里直接运行上面代码,出现
       ActiveX部件不能创建对象:'scripting.filesystemobject'
作者: songyq521    时间: 2007-9-25 13:06
按照网上的几种方法都试了都没用     srrun.dll    regedit里加权限啊
作者: songyq521    时间: 2007-9-25 13:17
scrīpting.FileSystemObject    ping xie cuowu ,wo yun si !
作者: jackymail    时间: 2007-9-25 13:25
Congratulations
作者: walker1020    时间: 2007-9-25 22:29
还是 songyq521 说的对,scrīpting.FileSystemObject   拼写有误,应该是 scripting.FileSystemObject   。做测试一定要细心呀!
作者: junlingliu    时间: 2007-11-15 14:40
是啊 是啊我也遇到类似的低级错误!
作者: Fantastic_test    时间: 2007-12-6 11:01
多谢大哥提醒啊。我晕一早上都忙活这个了。哎呀。。太感谢了。。。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2