AtEndOfStream, propriété

---

Description

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.

Syntaxe

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

---