Foro de elhacker.net

Dim linea As String = ""
Dim sr As StreamReader = New StreamReader(Archivo.Text)
        While True
            linea = sr.ReadLine
            If linea = "" Then
                Exit While
            End If
            MsgBox(linea)
        End While
sr.Close()
sr.Dispose()

Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()
 

        Dim Lector As StreamReader = File.OpenText("C:\Users\Noel\Desktop\Leeme - DataBase.txt")
        While Not Lector.EndOfStream
            MsgBox(Lector.ReadLine)
        End While