Problema leyendo la ultima linea StreamText

[Leonardo A. Sanchez]

Hola, mi problema es que estoy leyendo de texto, linea por linea, esto lo hago con un objeto.readline; lo que significa que avanzo un linea, y esto lo hago dentro de una estructura do while..loop.

algo asi

dim texto, FinLoop
FinLoop = "No"
texto=InStream.ReadLine
If Linea = "" Then
Response.Write("Archivo en Blanco")
Response.End()
End If
Do While FinLoop = "No"
If InStream.AtEndOfLine Then
FinLoop="Si"
End If
......Codigo de lo que hago con la linea de texto....
texto=InStream.ReadLine
Loop

El problema que tengo es que me lee la ultima linea del documento pero no me lo procesa porque se sale del ciclo, alguna idea de como puedo modificarlo para que me procese hasta la ultima linea y hay si se salga del loop??

[Leonardo A. Sanchez]

Creo que se podria solucionar con un loop que al menos se ejecute una vez, como un loop..while, desafortunadamente no encuentro en la documentacion que este tipo de loop no existe.

[maestro]

Dale la vuelta a la comparacion.

m texto, FinLoop
FinLoop = "No"
texto=InStream.ReadLine
If Linea = "" Then
Response.Write("Archivo en Blanco")
Response.End()
End If
Do While FinLoop <> "No"
texto=InStream.ReadLine
'......Codigo de lo que hago con la linea de texto....
If InStream.AtEndOfLine Then
FinLoop="Si"
End If
Loop
%>

[ElAprendiz]

Function LeerArchivoEntero(nombreArchivo)
Const ComoLectura = 1
Dim fso, elArchivo, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set elArchivo = fso.OpenTextFile(nombreArchivo, ComoLectura, False)
Do While elArchivo.AtEndOfStream <> True
retstring = elArchivo.ReadLine
Loop
elArchivo.Close
LeerArchivoEntero = retstring
End Function

[maestro]

Lo que yo decia, en vez de comprobar el FIN de archivo comprobamos el NO fin de archivo