Membaca File Notepad VB6

Ketika membuat sebuah program terkadang kita memerlukan perintah untuk membaca data dari file notepad. Entah itu untuk koneksi ke database atau kasus lainnya. Saya biasanya menggunakan file notepad untuk koneksi database. Path lokasi databasenya saya ketik di notepad. Jadi kalau file databasenya dipindah-pindah tinggal rubah pathnya yang ada di file notepad tadi. Nah, pada postingan kali ini saya ingin berbagi coding untuk  membaca data dari file notepad. Biar ga bertele-telen langsung saja ke TKP. Adapun coding yang saya gunakan untuk membaca file notepad adalah sebagai berikut:

Sub Baca()
Dim i As Integer
i = FreeFile
Dim s As String, s1 As String
Open "D:\lokasidb.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

Sederhana bukan, Silahkan dicoba dan semoga bisa membantu.

Artikel Terkait