用FileSystemObject对象追加文件的时候提示出错！

Question

这样,Msdn中犯了一个错误.常数写错值了.
应该是ForAppending=8!!!!
你把如下的代码粘贴测试:Sub OpenTextFileTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
    f.Write "Hello world!"
    f.Close
End SubPrivate Sub Command1_Click()
OpenTextFileTestEnd Sub注意:
要在工程中添加引用:
Microsoft Scripting Runtime
!!!!!

Answer 1

你真牛比,俺也碰到这个问题,送你20分如何!