次の方法で共有


OpenAsTextStream メソッド

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

構文

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

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

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