In questo esempio vedremo come utilizzare la proprietà AtEndOfLine di un oggetto di tipo FileSystemObject (un file di testo).
La proprietà AtEndOfLine restituisce un valore Booleano. Questo valore è True se il puntatore del file è immediatamente precedente all'indicatore di fine file in un file TextStream, altrimenti ritorna False.
Questa proprietà è disponibile solo in un file aperto per la lettura, con gli altri tipi di file viene generato un errore.
La sintassi è la seguente:

TextStreamObject.AtEndOfLine

Vediamo ora un esempio:

<% 
Dim fs,f,t,x 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set f=fs.CreateTextFile("c:\test.txt") 
f.Write("Ciao a tutti!") 
f.Close 
Set t=fs.OpenTextFile("c:\test.txt",1,false) 
Do While t.AtEndOfLine<>true 
x=t.Read(1) 
Loop 
t.Close 
Response.Write("L'ultimo carattere è : " & x) 
%>