Membaca Data dari Notepad hingga Akhir

Untuk membaca data dari suatu file Notepad (.txt) kita perlu untuk menggunakan Looping (pengulangan) dalam membaca tiap baris yang ada dalam file tersebut. Berikut contohnya:

Berikut Code lengkapnya:

Imports System.IO

Public Class frmReadData2End

    Private Sub btnReadData_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles btnReadData.Click

        Dim sr As StreamReader

        sr = File.OpenText("MyData.txt")

        lstData.Items.Clear()

        Do While sr.Peek <> -1

            lstData.Items.Add(sr.ReadLine)

        Loop

        sr.Close()

    End Sub

End Class