Membuka File Teks dan Menyimpannya

Mengenai cara membuka file teks dan menyimpannya - Seringkali kita membutuhkan kode untuk membuka file teks dan menyimpannya kembali.

Kode VB6 untuk Membuka File Teks

Private Function OpenFile(FileName As String) As String
    Dim i As Integer
    i = FreeFile
    Open FileName For Input As #i
        OpenFile = Input(LOF(i), i)
    Close #i
End Function

Kode VB6 untuk Menyimpan File Teks

Private Function SaveFile(FileName As String, strText As String)
    Dim i As Integer
    i = FreeFile
    Open FileName For Output As #i
        Print #i, strText
    Close #i
End Function

Demikian kode VB6 untuk menyimpan dan membuka file teks. Semoga bermanfaat.