saludos !

bueno estaba intentando en cargar un archivo de texto en un listo box y en un textbox ..  en el textbox  ya lo hize pero el problema ahora es cargarlo en un listbox.. tengo este codigo fue lo que estuve intentando pero no funciona en el listbox talves sera por que lo estoy haciendo mal ...


        Const ruta As String = "C:\Archivos de programa\data.txt"
        Const resultado As String = "C:\Archivos de programa\resultado.txt"
        Dim cargar As New System.IO.StreamReader(ruta)
        Dim cargar2 As New System.IO.StreamReader(resultado)
        ListBox1.Items.Add(cargar.ReadToEnd)
        txt_resultado.Text = cargar2.ReadToEnd
        cargar2.Close()
        cargar.Close()

        MsgBox("Valores Mostrados")


espero la ayuda de alguien  !!!

mmm bueno por ahora solo trabajare con textos pequeños.....  y ammmm  vere la manera de hacer ese bucle.... si se me dificulta te aviso.... gracias ^^

Yo suelo usar este código:

Dim lector As New System.IO.StreamReader( _
                    ruta_del_archivo, _
                    System.Text.Encoding.Default, _
                    True)
 
        ' Leer el contenido mientras no se llegue al final
        While lector.Peek() <> -1
            ' Leer una linea del fichero
            Dim s As String = lector.ReadLine()
            ' Si no esta vacia, incluirla al control
            ' Si esta vacia, continuar el bucle
            If String.IsNullOrEmpty(s) Then
                Continue While
            End If
 
            ListBox1.Items.Add(s)
        End While
        ' Cerrar el fichero
        lector.Close()

Quizás esto te sirva:

        Dim linea As Integer
        Dim escritor As New System.IO.StreamWriter(ruta_del_archivo)
        'Va recorriendo cada linea hasta llegar al final
        For linea = 0 To (ListView1.Items.Count - 1)
            ' Guarda una linea del fichero
            escritor.WriteLine(ListView1.Items.Item(linea))
        Next
        ' Cerrar el fichero
        escritor.Close()
        escritor.Dispose() 'Eliminamos el objeto