CreateTextFile&OpenTextFile

创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。

object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指明能否覆盖已有文件。如果文件可以覆盖，则值为 true ，否则为 false。如果忽略，则已有文件不能被覆盖。
unicode
可选项。Boolean 值，指明文件是否以 Unicode 或 ASCII 文件方式创建。如果文件作为 Unicode 文件创建，则值为 true ，如果作为 ASCII 文件创建，则为 false。如果忽略，则假定为 ASCII 文件。
说明
下面的代码说明了如何使用 CreateTextFile 方法来创建和打开一个文本文件。

[JScript]
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c://testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();
[VBScript]
Sub CreateAfile
    Dim fso, MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile("c:/testfile.txt", True)
    MyFile.WriteLine("This is a test.")
    MyFile.Close
End Sub
如果 overwrite 参数是 false ，或者没有提供这个参数，那么对于已有的 filename 将产生一个错误。

打开指定的文件并返回一个 TextStream 对象，可以通过这个对象对文件进行读、写或追加。

object.OpenTextFile(filename[, iomode[, create[, format]]])
参数
object
必选项。object 应为 FileSystemObject 的名称。
filename
必选项。指明要打开文件的字符串表达式。
iomode
可选项。可以是三个常数之一：ForReading 、 ForWriting 或 ForAppending 。
create
可选项。Boolean 值，指明当指定的 filename 不存在时是否创建新文件。如果创建新文件则值为 True ，如果不创建则为 False 。如果忽略，则不创建新文件。
format
可选项。使用三态值中的一个来指明打开文件的格式。如果忽略，那么文件将以 ASCII 格式打开。
设置
iomode 参数可以是下列设置中的任一种：

常数 值 描述
ForReading 1 以只读方式打开文件。不能写这个文件。
ForWriting 2 以写方式打开文件
ForAppending 8 打开文件并从文件末尾开始写。

format 参数可以是下列设置中的任一种：

值 描述
TristateTrue 以 Unicode 格式打开文件。
TristateFalse 以 ASCII 格式打开文件。
TristateUseDefault 使用系统默认值打开文件。

说明
下面的代码说明了如何使用 OpenTextFile 方法打开文件并追加文本：

[JScript]
var fs, a, ForAppending;
ForAppending = 8;
fs = new ActiveXObject("Scripting.FileSystemObject");
a = fs.OpenTextFile("c://testfile.txt", ForAppending, false);
...
a.Close();
[VBScript]
Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("c:/testfile.txt", ForWriting, True)
    f.Write "Hello world!"
    f.Close
End Sub