| 常数 | 值 | 描述 |
|---|---|---|
| ForReading | 1 | 以只读模式打开文件。不能对此文件进行写操作。 |
| ForWriting | 2 | 以只写方式打开文件。不能对此文件进行读操作。 |
| ForAppending | 8 | 打开文件并在文件末尾进行写操作。 |
〈P〉 format 参数可为下列设置之一:
| 常数 | 值 | 描述 |
|---|---|---|
| TristateUseDefault | -2 | 以系统默认格式打开文件。 |
| TristateTrue | -1 | 以 Unicode 格式打开文件。 |
| TristateFalse | 0 | 以 ASCII 格式打开文件。 |
以下代码举例说明如何使用 OpenTextFile 方法打开写文件:
Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", For Writing, True) f.Write "嗨,你好!"f.Close