達雅語翻譯

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)文字於該文字檔：

1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime翻譯社 並確定引用此 .dll 檔

語法

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

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

OpenTextFile 方式

Set fso = CreateObject("Scripting.FileSystemObject") Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending) fid.WriteLine "This is a new line!"

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject
描寫
準備工作
    Dim fid as TextStream

開啟一個指定的檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入翻譯
OpenTextFile 方式有如下幾個單位：
Format 引數可為下面設定值的任何值：
object.OpenTextFile(filename[, iomode[, create[, format]]])
設定




常數
 
描述


ForReading
1
開啟一個唯讀檔案。沒法對此檔案進行寫入。


ForAppending
8
開啟一個檔案並寫輸出至檔案的尾部翻譯




類型1: 
下面的程式碼舉例說明了利用 OpenTextFile 方式開啟並讀取一個文字檔：
    fid.Close
End Sub

請注意