¿Sacar el texto de un archivo y meterlo en un TextBox?

[DProduct]

¿Como puedo leer el texto de un archivo e introducirlo en un TextBox?

[krackwar]

quieres decir el texto que aparece cuando lo abres con el block de notas???

[cassiani]

¿Como puedo leer el texto de un archivo e introducirlo en un TextBox?

Código [Seleccionar] Expandir


Private Sub CmdAbrir_Click()
Dim Canal As Integer

    Canal = FreeFile 'Buscando un canal libre
   
    'Abriendo el archivo --> "Input"
    Open "c:\Archivo.txt" For Input As Canal
        'Pasando los datos al TexBox
        Text1.Text = Input$(LOF(Canal), #Canal)
    Close Canal 'Cerrando el archivo
End Sub

¡S4lu2!