OpenAsTextStream メソッド

指定したファイルを開き、開いたファイルの読み取り、書き込み、または追加書き込みに使用できる TextStream オブジェクトを返します。

構文

オブジェクト。OpenAsTextStream ([ iomode, [ format ]])

OpenAsTextStream メソッドの構文には、次の指定項目があります。

指定項目	説明
object	必須です。 常に File オブジェクトの名前。
iomode	省略可能。 入力/出力モードを示します。 3 つの定数 ForReading、ForWriting、ForAppending のいずれかを使用できます。
format	省略可能。 開くファイルの形式を示す Tristate の 3 つの値のいずれかです。 省略すると、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 のサポートおよびフィードバックを参照してください。