OpenAsTextStream 方法

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

語法

物件。OpenAsTextStream ([ iomode， [ format ]])

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

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

設定

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

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

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

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

註解

OpenAsTextStream方法提供的功能與FileSystemObject的OpenTextFile方法相同。 此外， 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

另請參閱

• 物件 (Visual Basic for Applications)

支援和意見反應

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