OpenAsTextStream 方法

打开指定的文件并返回一个 TextStream 对象，该对象可用于从该文件读取、写入或追加文件。

语法

对象。OpenAsTextStream ([ iomode， [ format ]])

OpenAsTextStream 方法语法包含以下部分：

Part	说明
object	必填。 始终是 File 对象的名称。
iomode	可选。 指示输入/输出模式。 可以是以下三种常量之一：ForReading、ForWriting 或 ForAppending。
format	可选。 用于指示已打开文件的格式的三个“Tristate”值之一。 如果省略了，该文件则打开为 ASCII。

设置

iomode 参数可以具有以下任何设置：

常量	值	Description
ForReading	1	只为了要读取而打开文件。 不能写入该文件。
ForWriting	2	打开文件进行写入。 如果已存在同名文件，之前的内容将被覆盖。
ForAppending	8	打开文件，然后写入到文件的末尾。

格式参数可以具有以下任一设置：

常量	值	Description
TristateUseDefault	-2	使用系统默认值打开文件。
TristateTrue	-1	打开该文件为 Unicode。
TristateFalse	0	打开该文件为 ASCII。

备注

OpenAsTextStream 方法与 FileSystemObject 的 OpenTextFile 方法提供的功能相同。 此外，OpenAsTextStream 方法还可以用于写入文件。

以下代码演示如何使用 OpenAsTextStream 方法：

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    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

另请参阅

• 对象 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。