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 或者沒有提供，則發生一個錯誤。
