AtEndOfStream

Egenskaberne for AtEndOfStream 'TextStream giver True hvis markøren er placeret i slutningen af filen, ellers returneres False.

Bemærk: Denne ejendom vil kun arbejde med en TextStream åbnet for læsning.

Lad os tage et eksempel.
Antag du har en tekstfil (C: \ test.txt) med følgende indhold:

 



 Hej hvad er dit navn?







 Mit navn er Marcello!

 

 dim fs, t, x









 "Jeg åbner en instans af FSO







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

 







 'Jeg åbner i skrivebeskyttet tilstand







 sæt T = fs.OpenTextFile ("c: \ test.txt", 1, falske)









 "Jeg opretter en løkke, der er standset i slutningen af ​​filen







 gøre, mens t.AtEndOfStream <> sandt



  



 x = t.Read (1)







 loop









 "Jeg lukke alt







 t.Close







 Set T = Nothing







 Set fs = Nothing









 'Mold Video







 Udgangen er:

 
 



 Det sidste tegn er:!