Archivo de texto largo

[lokoman]

?
No debe dar error.

Código vb:

Private Sub cmd_Click()
    Dim txtVAR As String
    Dim Archivo As String
 
    Archivo = "D:\Pro\ARCHIVO.TXT"
    Open Archivo For Binary As #1
    txtVAR = Space(LOF(1))
    Get #1, , txtVAR
 
    Close #1
    txtTEXTBOX.Text = txtVAR
End Sub
 

El Code es sencillo:

1-Abres el archivo en Binario
2-Asignas a una Variable el tamaño del archivo (LOF=Length Of File)
3-Cargas el texto del archivo en la Variable
4-Cierras el archivo
5-Asignas el archivo a un TEXTBOX, RICHTEXBOX, etc.