Fso对象 OpenAsTextStream方法

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"            '创建一个文件

    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