problema con lectura de fichero de texto

amanda21
06 de Octubre del 2005
Hola, tengo un problema con un ejercicio.Me piden que lea un archivo de texto que tengo creado y que lo saque por pantalla por un textbox , pero me he liado un poco con la función de lectura de ficheros y ni me lee el fichero ni me lo saca por pantalla.
¡¡¡¡Alguien me puede ayudar!!!!!

mvallejos
06 de Octubre del 2005
La forma más rapida es con la funcion Input, que requiere dós parámetros, la cantidad de bytes o caracteres a leer y el numero de fichero abierto.

un ejemplo

Dim Aux as String
Dim Archivo as String

Archivo = App.Path & \"\\Archivo.txt\"
Open Archivo For Input As #1
Aux = Input(Filelen(Archivo), #1)
Close 1
Text1.Text = Aux


Filelen(Archivo) retorna la cantida total de bytes del archivo, es decir, con esto lo leemos completo.

Espero que te sirva

Saludos