Membuka dan Menyimpan File Text

Kegiatan / proses membuka dan menyimpan file teks biasanya digunakan untuk aplikasi sejenis Notepad, tapi selain itu juga dilakukan untuk menyimpan data aplikasi ke dalam file teks (*.txt). Sebelum melanjutkannya, siapkan sebuah Form dan kontrol TextBox
(Multiline=True) didalamnya. Lalu siapkan sebuah file *.txt yang berisi, dan ingat-ingat lokasinya (dalam contoh dibawah ini, lokasi file-nya di C:\contoh.txt).Berikut ini macam-macam metodenya :Pada VB 6.0

Membuka Teks dari File

Dim i As Integeri = FreeFile
Open "D:\contoh.txt" For Input As #i
Text1.Text = Input(LOF(i), i)
Close #i

Membuka Teks dari File (dengan cara dibaca per baris)

Dim i As Integeri = FreeFile 
 Dim s As String,
s1 As String
Open "D:\contoh.txt" For Input As #i
Do Until EOF(i)Input #i, s 'tiap baris d tampung d variabel "s"s1 = s1 & s & IIf(EOF(i), "", vbCrLf)
Loop
Close #i  
Text1.Text = s1

Menyimpan Teks ke File

Dim i As Integer
i = FreeFile
Open "D:\contoh.txt" For Output As #i
Print #i, Text1.Text
Close #i

Menambahkan Teks ke File

Dim i As Integer
i = FreeFileOpen "D:\contoh.txt" For Append As #i
Print #i, Text1.Text
Close #i

Pada VB.NET

Membuka Teks dari File

Dim i As Integer = FreeFile()FileOpen(i, "D:\contoh.txt", OpenMode.Input)
TextBox1.Text = InputString(i, LOF(i))
FileClose(i)

Membuka Teks dari File (dengan cara dibaca per baris)

Dim i As Integer = FreeFile()
Dim s,
s1 As String
FileOpen(i, "D:\contoh.txt", OpenMode.Input)
Do Until EOF(i)
Input(i, s) 'tiap baris d tampung d variabel "s"s1 &= s & IIf(EOF(i), "", vbCrLf)
Loop
FileClose(i)
TextBox1.Text = s1

Menyimpan Teks ke File

Dim i As Integer = FreeFile()FileOpen(i, "D:\contoh.txt", OpenMode.Output)
PrintLine(i, TextBox1.Text)
FileClose(i)

Menambahkan Teks ke File

Dim i As Integer = FreeFile()FileOpen(i, "D:\contoh.txt", OpenMode.Append)
PrintLine(i, TextBox1.Text)
FileClose(i)

http://blog.jabatsoftware.com/2012/12/membuka-dan-menyimpan-file-text.html?m=1