AtEndOfStream

Egenskapene til AtEndOfStream 'TextStream returnerer True dersom pekeren er plassert på slutten av filen, ellers returneres False.

Merk: Denne egenskapen vil bare virke med en TextStream åpnet for lesing.

La oss ta et eksempel.
Anta at du har en tekstfil (c: \ test.txt) med følgende innhold:

 



 Hei hva heter du?







 Mitt navn er Marcello!

 

 dim fs, t, x









 Jeg åpne en forekomst av FSO







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

 







 "Jeg åpner i skrivebeskyttet modus







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









 Jeg lager en løkke som er stoppet ved slutten av filen







 do mens t.AtEndOfStream <> sant



  



 x = t.Read (1)







 sløyfe









 "Jeg lukker alt







 t.Close







 Sett T = Nothing







 Set fs = Nothing









 'Mold Video







 Utgangen er:

 
 



 Det siste tegnet er!