Membuat dan Membaca File TXT dengan VB6 - Visual Basic

File text merupakan jenis file paling sederhana yang ada di Komputer. Biasanya untuk membuat atau membaca file ini kita menggunakan notepad. Mumpung sekarang saya sedang belajar Visual Basic 6.0, skalian aja deh saya bagiin Cara Membuat dan Membaca File Text(*.txt) Dengan Visual Basic 6.0 kepada anda semua.






Untuk membuatnya anda harus ikuti step berikut:

Pertama, Membuat File TXT dengan Visual Basic
Buka VB
Tambahkan Form
Tambahkan 1 Command, Ubah Captionnya menjadi Save
Tambahkan 1 Textbox
Kemudian Copykan Code Berikut :

Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
Open "c:\test.txt" For Output As #1
Print #1, Text1
Close #i
End Sub

Sebuah file txt akan tercipta ketika anda run program anda dan anda mengetik di textbox kemudian anda klik tombol save. Coba anda lihat sebuah file bernama test di "C:\" itu adalah file yang baru saja anda ciptakan.

Kedua, Membaca File TXT dengan Visual Basic
Pastikan File test.txt telah selesai anda ciptakan
Buka VB
Tambahkan Form
Tambahkan 1 Command, Ubah Captionnya menjadi Open
Tambahkan 1 Textbox

Copykan Code Berikut

Private Sub Command1_Click()
Dim i As Integer
i = FreeFile
Dim s As String, s1 As String
Open "c:\test.txt" For Input As #i
Do Until EOF(i)
Input #i, s
s1 = s1 & s & IIf(EOF(i), "", vbCrLf)
Loop
Close #i
Text1.Text = s1
End Sub

Ketika anda Run Program, kemudian anda klik Open maka Program anda akan membaca isi dari file txt yang ada di "C:\test.txt".

Jika anda lebih kreatif lagi, anda bisa kembangkan project ini untuk membuat sebuah notepad utuh seperti buatan windows.