Membuat file TXT dengan Visual Basic 6.0 - Sebuah aplikasi (Program) sangat dibutuhkan media untuk penyimpanan data baik itu berupa database, settingan program dan lain-lain, untuk itu kita bisa mempergunakan file IO (Input output) seperti dat file, ini file, txt file, CSV dll, dan untuk Menyimpan database bisa menggunakan Ms. Access atau SqlServer.
Saya coba membahas tentang Cara Membuat File TXT dengan visual basic 6.0, untuk membuat file txt ini sangatlah mudah dengan Visual Basic tidak memerlukan coding-coding yang panjang cukup dengan beberapa line atau baris saja, bagi yang tertarik langsung aja copy coding dibawah ini kemudian pastekan di project sobat lalu jalankan program atau tekan F5, setelah itu coba periksa pada drive C pasti sobat temukan File Baru dengan nama "test.txt" yang isinya angka 1 sampai dengan 10.
Berikut Membuat file TXT dengan Visual Basic 6.0
Supaya lebih jelas coba lihat demonya
Sesuaikan nama file nya contoh visualbasicku.txt
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Open "C:\visualbasicku.txt" For Output As #1
Print #1, " --------------------------------"
Print #1, " Create TXT with VB "
Print #1, " --------------------------------"
For i = 1 To 10
Print #1, Space(10) & i & "."
Next i
Print #1, " --------------------------------"
Print #1, " End Of Record"
Print #1, " --------------------------------"
Close #i
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
Open "C:\visualbasicku.txt" For Output As #1
Print #1, " --------------------------------"
Print #1, " Create TXT with VB "
Print #1, " --------------------------------"
For i = 1 To 10
Print #1, Space(10) & i & "."
Next i
Print #1, " --------------------------------"
Print #1, " End Of Record"
Print #1, " --------------------------------"
Close #i
Unload Me
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :