Abrir un archivo de texto en un TextBox (Visual Basic)

Sub AbrirArchivo(Ruta As String, Texto As TextBox)
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
Texto.Text = Texto.Text & vbCrLf & txt
Loop
Close fnum
Ninguno:
End Sub

4 comentarios en “Abrir un archivo de texto en un TextBox (Visual Basic)

  1. De esa forma la ruta en lugar de manejarse “C:\Docs\texto1.txt” se manejaria solamente “texto1″ independiente del directorio donde se encuentre

  2. Hola te dejo el codigo con la pequeña modificacion por si le sirve a alguien

    Sub AbrirArchivo(ruta As String, Texto As TextBox)

    Texto.Text = “”
    ChDir App.Path
    ChDrive App.Path
    directorio = App.Path
    ruta = directorio & “\” & ruta
    Dim fnum As Integer
    On Error GoTo Ninguno
    fnum = FreeFile
    Open ruta For Input As fnum
    Do While Not EOF(fnum)
    Line Input #fnum, txt
    Texto.Text = Texto.Text & vbCrLf & txt
    Loop
    Close fnum
    Ninguno:
    End Sub

  3. Como puedo manejar la variable Ruta o modo de que sea independiente del directorio donde se ejecute. Esto por ejemplo, si la ruta de mis archivos es “C:\Docs\texto1.txt” si en otra maquina lo ubico en otro directorio no funcionaria. Existe alguna forma de concatenar la ruat con el Chdir App.Path para que sea independiente la ubicacion ?

Los comentarios están cerrados.