AtEndOfStream, propriété

Renvoie la valeur True si le pointeur de fichier se trouve à la fin d'un fichier TextStream. La valeur False est renvoyée dans le cas contraire. En lecture seule.

object.AtEndOfStream

L'espace réservé object correspond toujours au nom d'un objet TextStream.

Notes

La propriété AtEndOfStream s'applique seulement aux fichiers TextStream qui sont ouverts en lecture, sinon une erreur se produit.

Le code suivant illustre l'emploi de la propriété AtEndOfStream :

Function ReadEntireFile(filespec)
   Const ForReading = 1
   Dim fso, theFile, retstring
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set theFile = fso.OpenTextFile(filespec, ForReading, False)
   Do While theFile.AtEndOfStream <> True
      retstring = theFile.ReadLine
   Loop
   theFile.Close
   ReadEntireFile = retstring
End Function

Voir aussi

AtEndOfLine, propriété | Column, propriété | Line, propriété

Application: TextStream, objet