OpenTextFile 方法
         描述打开一个指定的文件并返回一个 TextStream 对象,该对象可用于对文件进行读操作或追加操作。语法object.OpenTextFile(filename[, iomode[, create[, format]]])OpenTextFile 方法有如下几部分:部分 描述 
Object 必需的。始终是一个 FileSystemObject 的名字。 
filename 必需的。字符串表达式,它标识了打开的文件。 
iomode 可选的。表示输入/输出方式。可为两个常数之一:ForReading或 ForAppending。 
create 可选的。Boolean 值,它表示如果指定的 filename 不存在是否可以创建一个新文件。如果创建新文件,其值为 True。若不创建文件其值为 False。缺省值为 False。 
format 可选的。三种 Tristate 值之一,用于指示打开文件的格式。如果省略,则文件以 ASCII 格式打开。 
设置值iomode 参数可为下面设置值的任何一个:常数 值 描述 
ForReading 1 打开一个只读文件。不能对此文件进行写操作。 
ForAppending 8 打开一个文件并写到文件的尾部。 
Format 参数可为下面设置值的任何值:常数 值 描述 
TristateUseDefault –2 使用系统缺省打开文件。 
TristateTrue –1 以 Unicode 格式打开文件。 
TristateFalse   0 以 ASCII 格式打开文件。 
说明下面的代码举例说明了使用 OpenTextFile 方法打开一个用于追加文本的文件:Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub