Membaca file text di VB6

   Susah-susah gampang membaca file text di VB6. Walaupun sudah bukan jamannya lagi pakai VB6, mungkin di VB yang lebih tinggi seperti VS2010 maupun 2012 atau yang terbaru juga bisa menggunakan script di bawah ini. Algoritmanya simpel, pertama deklarasi variabel kemudian dengan script "Open" file tujuan di buka, setelah itu di tampilkan. Tapi kalau gak tau scriptnya percuma tau algoritmanya =).

• Membuka Teks dari File

Dim i As Integer
i = 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 Integer
i = 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 = FreeFile
Open "D:\contoh.txt" For Append As #i
Print #i, Text1.Text
Close #i


Semoga berguna dan dapat membantu.