AtEndOfStream

Işaretçi dosyanın sonuna konumlandırılmış ise AtEndOfStream 'TextStream özellikleri doğru döner, aksi takdirde False döndürür.

Not: Bu özellik sadece okumak için açılmış bir TextStream çalışır.

Bir örnek verelim.
Aşağıdaki içeriği: (\ test.txt c) Bir metin dosyası olduğunu varsayalım:

 



 Merhaba isminiz ne?







 İsmim Marcello olduğunu!

 

 dim fs, t, x









 'Ben FSO bir örneğini açık







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

 







 'Ben okuma modunda açılır







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









 'Ben dosyanın sonunda durur bir döngü oluşturmak







 yapmak t.AtEndOfStream <> gerçek ise



  



 x = t.Read (1)







 döngü









 'Her şeyi yakın







 t.Close







 T = Nothing Set







 Fs = Nothing Set









 'Kalıp video







 Çıktısı:

 
 



 Son karakter!