常数 | 值 | 描述 |
---|---|---|
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