大家看看：怎么回事？

Question

VB中好像没有ForReading这个常量,得自己定义:
const ForReading=1

Answer 1

声明变量好象有问题。
Dim fso, txtfile, file1, ts As Object
好象只有ts是对象类型，基于都是变体型。

Answer 2

Private Sub Form_Load()   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim s As String
    Dim fso, txtfile, file1, ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.WriteLine ("This is a test.")
    txtfile.Close
    Set file1 = fso.getfile("c:\testfile.txt")
    Set ts = file1.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.CloseEnd Sub我的测试代码！
要向文件写进东西，否则会报错！
怎么问了两次！