CreateTextFile 方法

描述：创建一个指定的文件名，并且返回一个用于该文件读写的TextStream 对象。

语法：object.CreateTextFile(filename[, overwrite[, unicode]])

CreateTextFile 方法有如下几部分：

object：必需的。始终是一个 FileSystemObject 或 Folder 对象的名字。

filename：必需的。字符串表达式，它标识创建的文件。

overwrite：可选的。Boolean 值，表示一个已存在文件是否可被覆盖。如果可被覆盖其值为 True，其值为 False 时不能覆盖。如果它被省略，则已存在文件不能覆盖。

unicode：可选的。Boolean 值，表示文件是作为一个 Unicode 文件创建的还是作为一个ASCII 文件创建的。如果作为一个 Unicode 文件创建，其值为 True，作为一个 ASCII 文件创建，其值为 False。如果省略的话，则认为是一个 ASCII 文件。

例子：CreateTextFile 方法创建和打开文本文件。

过程描述：首先创建FileSystemObject，然后CreateTextFile，接着写入数据，最后关闭文件。

语言： vbs

Sub CreateAfile Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\\testfile.txt", True)

a.WriteLine("This is a test.")

a.Close

End Sub

语言：js

var fso = new ActiveXObject("Scripting.FileSystemObject");

var file1 = fso.CreateTextFile("c:\\\\testfile.txt",true);

file1.WriteLine("The first line");//写一行

file1.WriteBlankLines(1); //写空行

file1.Write("The second.line: ");//不换行写

file1.Write("Hello World");

file1.Close();//文件写完,关闭

对于一个已经存在的 filename，如果 overwrite 参数是 False 或者没有提供，则发生一个错误。