fin de archivo y posicionar el puntero

barri
30 de Noviembre del 2005
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.

mvallejos
30 de Noviembre del 2005
Para usar Seek, no debes usar archivos de texto, deberás usar archivos con tipos a partir de una estructura de registro.
La otra opción , es tratar el archivo como binario (BINARY ACCESS) y leer paquetes de bytes.

Saludos