OpenAsTextStream方法

描述：打開一個指定的文件并返回一個TextStream對象，該對象可用來對文件進行讀、寫、追加操作。

語法：object.OpenAsTextStream([iomode, [format]])

OpenAsTextStream方法語法參考OpenTextFile

說明：OpenAsTextStream方法提供了和FileSystemObject的OpenTextFile方法相同的功能。此外，OpenAsTextStream方法還可以用于對一個文件進行寫操作。

下面的代碼舉例說明了OpenAsTextStream方法的使用：

Sub TextStreamTest

    Const ForReading = 1, ForWriting = 2, ForAppending = 3

    Const TristateUseDefault = -2, TristateTrue = -1,

TristateFalse = 0

    Dim fs, f, ts, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    fs.CreateTextFile "test1.txt"            '創(chuàng)建一個文件

    Set f = fs.GetFile("test1.txt")

    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

    ts.Write "Hello World"

    ts.Close

    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

    s = ts.ReadLine

    MsgBox s

    ts.Close

End Sub