Membaca file teks

Bila Anda ingin membaca isi dari suatu File text, berikut ini contoh kode yang akan meembaca File text dan kemudian menampilkannnya di sebuah Kontrol TextBox (TextBox1) :

Dim sr As New IO.StreamReader("D:\ContohFile.txt")

'ditampilkan ke TextBox1
TextBox1.Text = sr.ReadToEnd

sr.Close()

Selain cara diatas, terdapat juga cara lain untuk membaca File text. Cara ini menggunakan teknik pembacaan per baris, berikut contoh kodenya :

Dim sr As New IO.StreamReader("D:\ContohFile.txt")
Dim s As String

Do Until sr.EndOfStream
  'tiap baris ditampung di s
  s = sr.ReadLine

  'ditampilkan ke TextBox1
  TextBox1.Text = TextBox1.Text & s & vbCrLf
Loop

sr.Close()