奧西坦文翻譯

1. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定援用此 .dll 檔

iomode 引數可為下面設定值 翻譯任何一個：

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject



準備工作
設定
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)文字於該文字檔：


開啟一個指定 翻譯檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入 翻譯社




單位
描述


Object
需要引數。始終是一個 FileSystemObject 的名字 翻譯社


filename
需要引數。字串運算式，它標識了開啟的檔案。


iomode
選擇性引數。默示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending 翻譯社


create
選擇性引數 翻譯社Boolean 值，它表示假如指定的 filename 不存在是不是可以設立建設一個開新檔案。假如豎立開新檔案，其值為 True。若不成立檔案其值為 False。預設值為 False 翻譯社


format
選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的格局。假如省略，則檔案以 ASCII 花式開啟 翻譯社



類型1: 
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並讀取一個文字檔：
以下部分援用自 Visual Studio 6 MSDN 光碟
OpenTextFile 方式

object.OpenTextFile(filename[, iomode[, create[, format]]])
語法
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt" 翻譯公司 ForAppending)
    fid.WriteLine "This is a new line!"
    Dim fid as TextStream







描寫
    fid.Close
End Sub

請留意

。-> 翻譯社|,-> 翻譯公司|的-> 翻譯

OpenTextFile 方式有以下幾個單位：

Format 引數可為下面設定值的任何值：