close
請注意
| 常數 | 描述 | |
| ForReading | 1 | 開啟一個唯讀檔案。沒法對此檔案進行寫入。 |
| ForAppending | 8 | 開啟一個檔案並寫輸出至檔案 翻譯尾部 翻譯社 |
fid.Close
End Sub
準備工作
Sub OpenTextFileTest Const ForReading = 1 Dim fso as FileSystemObject
Dim fid as TextStream
Set fso = CreateObject("Scripting.FileSystemObject") Set fid = fso.OpenTextFile("c:\testfile.txt", ForReading) MsgBox fid.ReadLine
fid.Close End Sub
規範2:
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並附加(Append)文字於該文字檔：
Dim fid as TextStream
以下部分引用自 Visual Studio 6 MSDN 光碟
OpenTextFile 方式
object.OpenTextFile(filename[ 翻譯公司 iomode[, create[, format]]])
語法
OpenTextFile 方式有以下幾個單位：
設定
範例1:
下面的程式碼舉例申明了使用 OpenTextFile 方法開啟並讀取一個文字檔：
Set fso = CreateObject("Scripting.FileSystemObject")
Set fid = fso.OpenTextFile("c:\testfile.txt",。-> 翻譯社|,-> 翻譯公司|的-> 翻譯 ForAppending)
fid.WriteLine "This is a new line!"
Format 引數可為下面設定值的任何值：
| 常數 | 描寫 | |
| TristateUseDefault | –2 | 利用系統預設開啟檔案 翻譯社 |
| TristateTrue | –1 | 以 Unicode 格局開啟檔案。 |
| TristateFalse | 0 | 以 ASCII 花樣開啟檔案。 |
| 單元 | 描寫 |
| Object | 需要引數 翻譯社始終是一個 FileSystemObject 的名字。 |
| filename | 需要引數。字串運算式，它標識了開啟的檔案。 |
| iomode | 選擇性引數。表示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending 翻譯社 |
| create | 選擇性引數。Boolean 值，它示意假如指定的 filename 不存在是不是可以建樹一個開新檔案 翻譯社如果確立開新檔案，其值為 True。若不設立建設檔案其值為 False。預設值為 False。 |
| format | 選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的花樣。假如省略，則檔案以 ASCII 花樣開啟 翻譯社 |
1. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並確定援用此 .dll 檔
描寫
Sub OpenTextFileTest
Const ForAppending = 8
Dim fso as FileSystemObject
iomode 引數可為下面設定值 翻譯任何一個：
開啟一個指定 翻譯檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入 翻譯社
以下內文出自: http://blog.xuite.net/hwtang/notes/23618734-VB%E8%AE%80%E5%8F%96%E6%96%87%E5%AD%97%E6%AA%94%E7%9A%84有關翻譯的問題歡迎諮詢天成翻譯社
文章標籤
全站熱搜
留言列表
