共用方式為


OpenAsTextStream 方法

開啟指定的檔案,並傳回可用來讀取、寫入或附加至檔案的 TextStream 物件。

語法

物件OpenAsTextStream ([ iomode, [ format ]])

OpenAsTextStream方法語法具有下列部分:

部分 描述
物件 此為必要動作。 一律為 File 物件的名稱。
iomode 選用。 表示輸入/輸出模式。 可為三個常數之一:ForReadingForWritingForAppending
format 選用。 三個 Tristate 值的其中之一用來指出已開啟檔案的格式。 如果省略,會開啟檔案為 ASCII。

設定

Iomode 引數可以使用下列任一設定:

常數 描述
ForReading 1 開啟為唯讀檔案。 您無法寫入此檔案。
ForWriting 2 開啟檔案以進行寫入。 如果存在同名的檔案,則會覆寫其先前的內容。
ForAppending 8 開啟檔案並將寫入檔案的結尾。

format 引數可以使用下列任一設定:

常數 描述
TristateUseDefault -2 使用系統預設來開啟檔案。
TristateTrue -1 開啟為 Unicode 的檔案。
TristateFalse 0 開啟為 ASCII 的檔案。

註解

OpenAsTextStream方法提供的功能與FileSystemObjectOpenTextFile方法相同。 此外, OpenAsTextStream 方法可以用來寫入檔案。

下列程式碼說明 OpenAsTextStream 方法的使用方式:

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Create a file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應