Visual Basic - cómo leer las dos ultimas lineas de un txt en VB6?

ese es el problema... quisiera que alguien me pueda ayudar... necesito saber como puedo leer las dos ultimas lineas de una archivo TXT...

de ante mano muchas gracias...

saludos

yo te lo explico:

Abres el archivo en modo lectura, osea For Input, cargas cada linea en un array con la función Split

Y la última línea es Ubound(array) y la anterior (lógico) Ubound(array) - 1

Saludos

muchas gracias por tu respuesta...

en la apertura del archivo no tengo problemas... pero con la carga de las lineas en el array con Split tengo ataos seria posible una ayudita con el array???? de antemano muchas gracias...

saludos

Espero este ejemplo te sirva de ayuda, si es lo que quisistes expresar en tu interrogante este es el ejemplo:
Sub Prueba()
Open "C:Documents and SettingsDaivinsonEscritorioprueba.txt" For Input As #1
Dim vector()
Dim Linea As String, Cuenta
Do Until EOF(1)
Line Input #1, Linea
Cuenta = Cuenta + 1
ReDim Preserve vector(Cuenta)
vector(Cuenta) = Linea
Loop
If Not IsEmpty(Cuenta) Then
MsgBox vector(Cuenta)
MsgBox vector(Cuenta - 1)
Else
MsgBox "El archivo de texto no contiene información", vbCritical, "Alerta"
End If
Close #1
End Sub

No hombre, yo me refería a algo mas sencillo. Algo así:

Dim s As String, a() As String
Open "C:\Archivo.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)

MsgBox "Ultima línea: " & a(UBound(a))
MsgBox "Penúltima línea: " & a(UBound(a) - 1)

Feliz año!!

Tienes Razon P3L30N2009, todos los caminos conducen a Roma, el resultado de tu código es este:
Dim s As String, a() As String
Open "C:Documents and SettingsDaivinsonEscritorioprueba.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)

MsgBox "Penúltima línea: " & a(UBound(a) - 2)
MsgBox "Ultima línea:: " & a(UBound(a) - 1)

Saludos

Estoy de acuedo, todos los caminos conducen a Roma, pero por el camino mas corto siempre llegas antes y ahorras energía.

y yo nunca puse MsgBox "Ultima línea:: " & a(UBound(a) - 1) sino MsgBox "Ultima línea: " & a(UBound(a))

a no ser que en tu txt la última línea sea una línea en blanco

Feliz 2009

Claro es asi si verificas el código veras que a(UBound(a)) devuelve una cadena vacía saludos compañero, de todos modos ya nuestro compañero por cualquier vía ya le hemos resuelto su problema. Feliz Año Nuevo 2009

Muchas gracias Daivinson Coffi y muchas gracias P3L30N2009 me quedo clarito... ahora a seguir investigando...

muchas gracias y Feliz AÑO atrasado...