fin de archivo y posicionar el puntero
Publicado por barri (13 intervenciones) el 30/11/2005 12:27:25
Wenas, tengo unos archivos que trato mediante FileSystemObject:
archivo_a_abrir = App.Path & "\" & archivo
Set fso = CreateObject("scripting.FileSystemObject")
On Error GoTo error
Set txt = fso.OpenTextFile(archivo_a_abrir, 1, False)
On Error GoTo error
Set arch_destino = fso.CreateTextFile(App.Path & "\destino.txt", True)
He visto las funciones para archivos abiertos con Open y accediendo a ellos por numeros (#1)
pero ¿como puedo comprobar el final del archivo (eof) y posicionar el puntero (seek) con este metodo?
Muchas gracias!!
Salu2.
archivo_a_abrir = App.Path & "\" & archivo
Set fso = CreateObject("scripting.FileSystemObject")
On Error GoTo error
Set txt = fso.OpenTextFile(archivo_a_abrir, 1, False)
On Error GoTo error
Set arch_destino = fso.CreateTextFile(App.Path & "\destino.txt", True)
He visto las funciones para archivos abiertos con Open y accediendo a ellos por numeros (#1)
pero ¿como puedo comprobar el final del archivo (eof) y posicionar el puntero (seek) con este metodo?
Muchas gracias!!
Salu2.
Valora esta pregunta
0