AtEndOfStream

De eigenschappen van TextStream AtEndOfStream 'True retourneert als de wijzer is gepositioneerd aan het einde van het bestand, anders geeft False.

Opmerking: Deze eigenschap werkt alleen met een TextStream geopend voor lezen.

Laten we een voorbeeld nemen.
Stel je hebt een tekst bestand (c: \ test.txt) met de volgende inhoud:

 



 Hallo wat is je naam?







 Mijn naam is Marcello!

 

 dim fs, t, x









 'Ik open een exemplaar van de FSO







 Set fs = Server.CreateObject ("Scripting.FileSystemObject")

 







 'Ik open in leesmodus







 set T = fs.OpenTextFile ("c: \ test.txt", 1, false)









 'Ik maak een lus die is gestopt aan het einde van het bestand







 doen, terwijl t.AtEndOfStream <> waar



  



 x = t.Read (1)







 lus









 'Ik sluit alles







 t.Close







 Set T = Nothing







 Set fs = Nothing









 "Mold Video







 De output is:

 
 



 Het laatste teken is:!