Leer el contenido de un archivo de texto con la función Input con Visual Basic 6.0

La función input, a diferencia de Line Input que Lee por línea, Input lee todo el contenido del archivo de una sola ves, es decir no necesitamos, como en el ejemplo anterior, utilizar un bucle.

El modo de usarlo es el siguiente:

Primero se abre el archivo con Open, por ejemplo:

Open Path_Archivo For Input As #1

Luego se asigna a una variable, el contenido que devolverá la función Input:

Contenido = Input(LOF(1), #1)

Un ejemplo:

Lo siguiente lee el contenido de un archivo txt y lo carga en un textBox multilínea

Colocar un TextBox llamado txt_Path ( para especificar la ruta del archivo ).

El Textbox que mostrará los datos del fichero, colocarle el nombre txt_Contenido

Código en un botón:

On Error GoTo Err_Sub

Dim n_File As Integer
Dim Contenido As String


'Número de archivo libre
n_File = FreeFile

'Abre el archivo indicado
Open txt_Path For Input As n_File

'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), #n_File)

'Cierra el archivo abierto
Close n_File

'Carga el contenido de la variable en el TextBox
txt_Contenido = Contenido

Exit Sub

Err_Sub:

MsgBox Err.Description, vbCritical