CreateTextFile 方法

创建指定文件并返回 [b]TextStream[/b] 对象，该对象可用于读或写创建的文件。 [code][i]object.[/i][b]CreateTextFile[/b][i](filename[, overwrite[, unicode]])[/i][/code] [h3]参数[/h3]object 必选项。应为 FileSystemObject 或 Folder 对象的名称。 filename 必选项。字符串表达式，指明要创建的文件。 overwrite 可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 [b]True[/b]；如果不能覆盖文件，则该值为 [b]False[/b] 。如果省略该值，则不能覆盖现有文件。 [i]unicode[/i] 可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 [b]True[/b]；如果以 ASCII 文件格式创建文件，则该值为 [b]False[/b]。如果省略此部分，则假定创建 ASCII 文件。 [h3]说明[/h3]以下代码举例说明如何使用 [b]CreateTextFile[/b] 方法创建并打开文本文件：

[code]Sub CreateAfile  Dim fso, MyFile  Set fso = CreateObject("Scripting.FileSystemObject")  Set MyFile = fso.[b]CreateTextFile([/b]"c:\testfile.txt"[b],[/b] True[b])[/b]  MyFile.WriteLine("[/code]这是一个测试。[code]")[/code][code]  MyFile.Close[/code][code]End Sub[/code]

对于 [b]filename[/b] 已经存在的文件，如果 [b]overwrite[/b] 参数为 [b]False[/b]，或未提供此参数时，则会出现错误。