関連項目                    対象

ファイルのポインタが TextStream ファイルの末尾の位置にある場合は、真 (True) を返します。それ以外の場合は、偽 (False) を返します。値の取得のみ可能です。

構文

object.AtEndOfStream

引数 object には、TextStream オブジェクトの名前を指定します。

解説

AtEndOfStream プロパティは、読み取り専用で開かれた TextStream ファイルのみに適用されます。ほかのファイルの場合は、エラーとなります。

次のコードは、AtEndOfStream プロパティの使用例です。

Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
    retstring = a.ReadLine
    ...
Loop
a.Close