vbs 语法请求查错，谢谢

gdutlzl

请问以下代码哪里错了？我把这段代码拷到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

gdutlzl

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那里不应该用括号，但去掉括号以后还是有错误

gdutlzl

报错的是Set Ofile = objfile.OpenAsTextStream(ForWriting) 这句，“Invalid procedure call or argument”

正在更新

Set Ofile = objfile.OpenAsTextStream(2)

正在更新

或者

Const ForWriting = 2

Set Ofile = objfile.OpenAsTextStream(ForWriting)

gdutlzl

确实可以了，谢谢啊

shanfeng1419

学习