close
語法
object.CreateTextFile(filename[, overwrite[, unicode]])
CreateTextFile 方式有如下幾個單元：
| 單元 | 描寫 |
| object | 需要引數。始終是一個 FileSystemObject 或 Folder 物件的名字。 |
| filename | 需要引數。字串運算式，它標識確立的檔案 翻譯社 |
| overwrite | 選擇性引數。Boolean ，表示一個已存在檔案是不是可被籠蓋。若是可被籠蓋其值為 True，其為 False 時沒法覆蓋。假如它被省略，則已存在檔案無法覆蓋。 |
| unicode | 選擇性引數 翻譯社Boolean ，暗示檔案是作為一個 Unicode 檔案創立 翻譯仍是作為一個 ASCII 檔案創設的。如果作為一個 Unicode 檔案設立建設，其為 True，作為一個 ASCII 檔案確立，其為 False。如果省略 翻譯話，則認為是一個 ASCII 檔案。 |
請注意
下面的程式碼舉例申明若何利用 CreateTextFile 方式建立和開啟文字檔 翻譯社
Sub CreateAfile。-> 翻譯社|,-> 翻譯公司|的-> 翻譯Dim fso as FileSystemObject
Dim fid as TextStream
Set fso = CreateObject("Scripting.FileSystemObject")
Set fid = fso.CreateTextFile("c:testfile.txt", True)
fid.WriteLine("This is a test.")
fid.Close
End Sub對於一個已存在的 filename，如果 overwrite 引數是 False 或沒有提供，則會産生毛病。
準備工作
建樹一個指定 翻譯檔名並且傳回一個用於該檔案讀寫的 TextStream 物件 翻譯社
以下部分引用自 Visual Studio 6 MSDN 光碟
CreateTextFile 方法
描寫
1. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime 翻譯公司 並確定援用此 .dll 檔
來自: http://blog.xuite.net/hwtang/notes/23618266-VB%E5%BB%BA%E7%AB%8B%E6%96%87%E5%AD%97%E6%AA%94%E7%9A%84有關翻譯的問題歡迎諮詢天成翻譯社
文章標籤
全站熱搜
留言列表
