close

韓國翻譯

請注意

描述

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 或沒有供應，則會發生毛病。

CreateTextFile 方法有如下幾個單位：

單元 描述
object 必要引數。始終是一個 FileSystemObject 或 Folder 物件的名字翻譯
filename 需要引數。字串運算式，它標識建立的檔案。
overwrite 選擇性引數。Boolean ，表示一個已存在檔案是不是可被籠蓋。若是可被覆蓋其值為 True，其為 False 時無法籠蓋翻譯假如它被省略，則已存在檔案無法籠蓋。
unicode 選擇性引數。Boolean ，表示檔案是作為一個 Unicode 檔案成立的照舊作為一個 ASCII 檔案成立的。假如作為一個 Unicode 檔案建立，其為 True，作為一個 ASCII 檔案創立，其為 False翻譯假如省略的話，則認為是一個 ASCII 檔案。

下面的程式碼舉例申明如何利用 CreateTextFile 方式建樹和開啟文字檔。

以下部分援用自 Visual Studio 6 MSDN 光碟

CreateTextFile 方式

object.CreateTextFile(filename[, overwrite[, unicode]])

準備工作

建立一個指定的檔名而且傳回一個用於該檔案讀寫的 TextStream 物件翻譯

語法

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有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931

arrow
arrow
    文章標籤
    翻譯社
    全站熱搜
    創作者介紹
    創作者 herrerv7na1d4 的頭像
    herrerv7na1d4

    herrerv7na1d4@outlook.com

    herrerv7na1d4 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄