AtEndOfLine, propriété

---

Description

Renvoie la valeur True si le pointeur de fichier est positionné immédiatement après le marqueur de fin de ligne d'un fichier TextStream. La valeur False est renvoyée dans le cas contraire. En lecture seule.

Syntaxe

object.AtEndOfLine

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

Notes

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

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

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.AtEndOfLine <> True
    retstring = theFile.Read(1)
  Loop
  theFile.Close
  ReadEntireFile = retstring
End Function

---