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.