Borrar la última línea de un fichero .txt

ugenux
26 de Noviembre del 2004
¿Cómo puedo borrar la última línea de un fichero .txt al hacer click en un botón?
¿Existe algún comando o instrucción para ello?

Tengo un programa que edita ficheros txt y me falta borrar lineas......EStoy desesperado.

Gracias.

en?
26 de Noviembre del 2004
sólo tienes que leer del fichero hasta que llegue al final, leyando línea por línea, y escribirlo en un fichero temporal si después de la línea leída no es final de fichero:

Dim StrLinea As String

Open Fich1 For Input As #1
Open Fich2 For Output As #2
While not eof(1)
line input #1, StrLinea
if Not eof(1) Then print #2, strlinea
Wend
Close
Kill Fich1
Name Fich2 As Fich1

--
Un saludo.