Agan agan,tanya dong ane lagi bikin program vb nih,berikut penjelasannya :

aplikasnya itu kalo kita masukin parameter di textbox,dia bakal tulis ke file.txt dan tampilin listnya di listbox.sejumlah angka yang dimasukan pada textbox,untuk proses tulis sudah bisa,

cum untuk proses baca kembali isi file dari file.txt ane belum bisa tampilin ke listbox,?

jadi ane maunya berapa yang ane inputin di textbox ditulis kedalam listbox,kemudian kalo kita klik tombol baca,programnya bakal baca file.txt trus berapa jumlah baris yang dibaca di dalam file.txt ditampilin juga ke listbox,

gimana ya gan untuk baca berapa baris didalamnya ??

mungkin agan semua ada yang pernah buat ?


berikut ini untuk coding tulis ke filenya :


Private Sub cmd_write_Click()
Dim counter As Long '
Dim starting As Date
Dim ending As Date
Dim total As Double
counter1.Enabled = True

Open "C:\test.txt" For Output As #1
For counter = 1 To txt_file.Text
Print #1, "Ini merupakan Baris ke ", counter, "Untuk Uji Performansi"
List1.AddItem ("Ini merupakan Baris ke " & counter & "Untuk Uji Performansi")
Next
Close #1
counter1.Enabled = False
MsgBox totaltimer


End Sub

Untuk coding baca file nya :
Private Sub cmd_read_Click()
List1.Text = ""
txt_file.Text = ""

Open "C:\test.txt" For Input As #1
For counter = 1 To txt_file.Text
Print #bacafile, "Ini merupakan Baris ke ", counter, "Untuk Uji Performansi"
List1.AddItem ("Ini merupakan Baris ke " & counter & "Untuk Uji Performansi")
Next
counter1.Enabled = True
MsgBox totaltimer
counter1.Enabled = False
End Sub

mohon pencerahannya gam

makasih banyak