OpenTextFile 方法
打开指定的文件并返回一个 TextStream 对象，该对象可用于从该文件读取、写入或追加文件。
语法
对象。OpenTextFile (filename， [ iomode， [ create， [ format ]]] )
“OpenTextFile”方法具有以下部件：
| Part | 说明 |
|---|---|
| object | 必填。 始终是 FileSystemObject 的名称。 |
| 文件名 | 必填。 标识要打开的文件的字符串表达式。 |
| iomode | 可选。 指示输入/输出模式。 可以是以下三种常量之一：ForReading、ForWriting 或 ForAppending。 |
| 创建 | 可选。 指示当指定的文件名不存在时是否可以创建新文件的 Boolean值。 如果创建新文件，则该值为“True”；否则，为“False”。 默认值为“False”。 |
| format | 可选。 用于指示已打开文件的格式的三个“Tristate”值之一。 如果省略了，该文件则打开为 ASCII。 |
设置
iomode 参数可以具有以下任何设置：
| 常量 | 值 | Description |
|---|---|---|
| ForReading | 1 | 只为了要读取而打开文件。 不能写入该文件。 |
| ForWriting | 2 | 打开文件以供仅写入。 使用此模式可将现有文件替换为新数据。 无法从此文件读取数据。 |
| ForAppending | 8 | 打开文件，然后写入到文件的末尾。 无法从此文件读取数据。 |
格式参数可以具有以下任一设置：
| 常量 | 值 | Description |
|---|---|---|
| TristateUseDefault | -2 | 使用系统默认值打开文件。 |
| TristateTrue | -1 | 打开该文件为 Unicode。 |
| TristateFalse | 0 | 打开该文件为 ASCII。 |
备注
以下代码演示了使用“OpenTextFile”方法打开要追加文本的文件：
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, True, TristateFalse)
f.Write "Hello world!"
f.Close
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。