Visual Basic Kod Bankası - VB'de Dosyalama İşlemleri

VB'de Dosyalama İşlemleri

VB'de dosya okumak için ilk önce formunuza bir adet textbox ,bir adet listbox ve de iki command button ekleyin daha sonra projenizi kaydedin (bunu mutlaka yapın çünkü okuma yapılırken yol sorunu olabilir.)
Daha sonra aşağıdaki kodları projenize kopyalayın.

'---------------------------------------------

Private Sub Command1_Click()
'Ekle Butonu
Listbox1.Additem Text1.Text
'Listbox içine textteki metin ekleniyor.
End Sub

Private Sub Command2_Click()
'Kaydet Butonu
On Error Resume Next'Bir hata olduğunda gözardı et
Dim a,b,i
open app.path & "" & deneme.txt for output as #1
for i=0 to listbox1.listcount-1
a=listbox1.list(i)
write #1,a
next
close #1
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim a
open app.path & "" & deneme.txt for input as #1
While Not EOF(1)'Dosya sonu(End Of File) kontrolü
input #1,a
Listbox1.Additem a
wend
close #1

'Böylece ekle butonuna bastığınızda text1
'içindeki metin listeye eklenecek ve daha sonra
'kaydet butonuna bastığınızda ise listedeki
'bilgiler projemiz ile aynı dizinde yer alan
'deneme.txt dosyasına yazılacak.

'Formu çalıştırdığımızda ise deneme.txt
'dosyasından veriler okunacak ve listeye
'eklenecektir.
'Eğer formu çalıştırdığınızda dosya
'bulunamıyor hatası alırsanız projenizi
' kaydettiğiniz dizine gidin ve oraya bir tane
'metin belgesi (txt uzantılı) dosyası ekleyin.
'Adını da deneme olarak değiştirin.