Partager via


Propriété AtEndOfStream

Propriété en lecture seule qui renvoie la valeur True si le pointeur de fichier est à la fin d’un fichier TextStream et False dans le cas contraire.

Syntaxe

objet . AtEndOfStream

L’objet est toujours le nom d’un objet TextStream.

Remarques

La propriété AtEndOfStream s’applique uniquement aux fichiers TextStream ouverts en lecture ; sinon, une erreur se produit.

Le code suivant illustre l’utilisation de la propriété 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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.