51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5285|回复: 6
打印 上一主题 下一主题

[求助] 在QTP运行,出现.ActiveX部件不能创建对象:'scripting.filesystemobject'

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-9-25 13:05:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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'
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2007-9-25 13:06:45 | 只看该作者
按照网上的几种方法都试了都没用     srrun.dll    regedit里加权限啊
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-9-25 13:17:03 | 只看该作者
scrīpting.FileSystemObject    ping xie cuowu ,wo yun si !
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-9-25 13:25:54 | 只看该作者
Congratulations
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
    发表于 2007-9-25 22:29:55 | 只看该作者
    还是 songyq521 说的对,scrīpting.FileSystemObject   拼写有误,应该是 scripting.FileSystemObject   。做测试一定要细心呀!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2007-11-15 14:40:16 | 只看该作者
    是啊 是啊我也遇到类似的低级错误!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-12-6 11:01:18 | 只看该作者
    多谢大哥提醒啊。我晕一早上都忙活这个了。哎呀。。太感谢了。。。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-24 05:31 , Processed in 0.071860 second(s), 25 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表