Cara Baca dan Tulis Text File (TXT) Melalui VB6

Text File atau File yang biasanya berekstensi .txt secara default di buka oleh aplikasi notepad yang sudah include di dalam OS Ms.Windows.
Nah...kali ini penulis akan coba me-share cara untuk membaca dan menulis di Text File dengan menggunakan Visual basic 6.0 atau yang biasa disebut VB6.

Seperti biasa, kita buka project baru di visual basic 6.0 terlebih dahulu, lalu :

1. Design form dengan menggunakan 2 TextBox dan 2 CommandButton
Design Penulis seperti ini :


2. Tambahkan Reference Microsoft Scripting Runtime
•  Klik Project
•  Klik Add Reference
• Beri tanda checklist pada Microsoft Scripting Runtime
3. Ketik atau copy paste source berikut :

Private Sub Command1_Click()
Open "c:\test.txt" For Append As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Command2_Click()
Dim FSO         As FileSystemObject
Dim TextStream  As TextStream
Dim Isi, IsiRC  As String

    IsiRC = "Data Yang ada di Text File : "
   
    If Dir("c:\test.txt") <> "" Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TextStream = FSO.OpenTextFile("c:\test.txt")
       
        Do While TextStream.AtEndOfStream = False
            Isi = TextStream.ReadLine
            If Len(Trim(Isi)) > 0 Then
                IsiRC = IsiRC & vbCrLf & Trim(Isi)
            End If
        Loop
        TextStream.Close
        Text2.Text = IsiRC
        Else
        MsgBox " File Test.txt Tidak ada di c:\"
    End If
End Sub

Selesai....Pada sample diatas akan membentuk text file dengan nama Test.txt di C:\
Silahkan di explore lebih jauh lagi karena ini project dalam bentuk sederhana :D

Sample Project bisa di download disini 
Password : dewakhaest