CreateTextFile

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