関連項目                    対象

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

構文

object.AtEndOfLine

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

解説

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

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

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