AtEndOfStream

Vlastnosti objektu TextStream AtEndOfStream "vrací true v případě, že ukazatel je umístěn na konci souboru, jinak vrací False.

Poznámka: Tato vlastnost bude fungovat pouze s TextStream objekt otevřen pro čtení.

Vezměme si příklad.
Předpokládejme, že máte textový soubor (C: \ test.txt) s následujícím obsahem:

 



 Dobrý den, Jak se jmenujete?







 Mé jméno je Marcello!

 

 dim fs, t, x









 "Otevřu stupně FSO







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

 







 "Otevřel jsem četl v režimu







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









 "Já vytvořit smyčku, která se zastaví na konci souboru







 dělat, když t.AtEndOfStream <> true



  



 x = t.Read (1)







 smyčka









 "I zavřete všechna







 t.Close







 Nic nastavení T =







 Set fs = Nothing









 "Plíseň Video







 Výstup je:

 
 



 Poslední znak je:!