AtEndOfStream

Właściwości TextStream AtEndOfStream "zwraca True, jeśli wskaźnik jest ustawiany na koniec pliku, w przeciwnym wypadku zwraca False.

Uwaga: Właściwość ta działa tylko z TextStream otwarty do odczytu.

Weźmy przykład.
Załóżmy, że masz plik tekstowy (c: \ test.txt) z następującą zawartość:

 



 Witaj, jak masz na imię?







 Nazywam się Marcello!

 

 słabym fs, t, x









 "Otwieram jedno wystąpienie FSO







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

 







 "I otwarte w trybie odczytu







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









 "I stworzyć pętlę, która zatrzyma się na końcu pliku







 zrobić, gdy t.AtEndOfStream <> true



  



 x = t.Read (1)







 pętla









 "Ja się wszystko







 t.Close







 Zestaw T = Nothing







 Set fs = Nothing









 'Video Mold







 Wyjście jest:

 
 



 Ostatni znak jest!