51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[原创] vbs 语法请求查错,谢谢

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-6-8 17:46:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问以下代码哪里错了?我把这段代码拷到vbs文档里,总是报错,谢谢啦

Set objfso=CreateObject("Scripting.FileSystemObject")

objfso.CreateTextFile("C:\Documents and Settings\XP\Desktop\test123.txt",True)

Set objfile=objfso.GetFile("C:\Documents and Settings\XP\Desktop\test123.txt")

Set Ofile = objfile.OpenAsTextStream(ForWriting)

    Ofile.Write "testing filewriht function"
    Ofile.writeblanklines(2)
    Ofile.Write "testing filewriht function too"
    Ofile.Close

Set Ofile=Nothing
Set objfile=Nothing
Set objfso=Nothing
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2012-6-8 17:57:20 | 只看该作者
Set objfso=CreateObject("Scripting.FileSystemObject")

objfso.CreateTextFile"C:\Documents and Settings\XP\Desktop\test123.txt"

Set objfile=objfso.GetFile("C:\Documents and Settings\XP\Desktop\test123.txt")

Set Ofile = objfile.OpenAsTextStream(ForWriting)

    Ofile.Write "testing filewriht function"
    Ofile.writeblanklines(2)
    Ofile.Write "testing filewriht function too"

    Ofile.Close


Set Ofile=Nothing
Set objfile=Nothing
Set objfso=Nothing

找到了一点错误,CreateTextFile那里不应该用括号,但去掉括号以后还是有错误
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2012-6-8 18:02:30 | 只看该作者
报错的是Set Ofile = objfile.OpenAsTextStream(ForWriting) 这句,“Invalid procedure call or argument”
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2012-6-9 15:08:19 | 只看该作者
Set Ofile = objfile.OpenAsTextStream(2)
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2012-6-9 15:10:29 | 只看该作者
或者

Const ForWriting = 2

Set Ofile = objfile.OpenAsTextStream(ForWriting)
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2012-6-10 10:14:21 | 只看该作者
确实可以了,谢谢啊
回复 支持 反对

使用道具 举报

  • TA的每日心情
    擦汗
    2017-2-4 09:49
  • 签到天数: 145 天

    连续签到: 1 天

    [LV.7]测试师长

    7#
    发表于 2012-6-13 10:23:35 | 只看该作者
    学习
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-9 01:58 , Processed in 0.076848 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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