Arkadaşlar ben formda listboxa eklediim itemları form kapanırken text dosyasına kaydetsin istiorum ve de form açılırken text dosyasından itemları listboxa eklesin. Bunu streamreader ve streamwriter la nası yapabilirim? Yardımları bekliorum!!!
' YAZMA
Dim Dosya As String
Dosya = "c:\deneme.txt" ' Dosyanın yolu ve adı..
Dim FS As FileStream = New FileStream(Dosya, FileMode.Append)'Nasıl veritabanına bağlanmak için Connection.Open yaparız bundada dosyayı yazma modunda açıyoruz.
Dim yaz as streamwriter = new streamwriter(fs)' Dosyaya yazmakiçin
dim i as byte
for i = 0 to listbox1.items.count -1
Yaz.writeline(listbox1.items(i))
next i
Yaz.close
fs.close
'Okuma
Dim Dosya As String
Dim Gecici As String
Dosya="c:/deneme.txt"
Dim FS As FileStream = New FileStream(Dosya, FileMode.Open)'Okuma modunda açtık
Dim Oku As StreamReader = New StreamReader(fs)
Do
Gecici=Oku.readline
listbox1.items.add(Gecici & Microsoft.VisualBasic.ControlChars.CrLf)'CrLf her öge kendi satırında olmasını sağlar.
Loop Until Gecici Is Nothing 'Gecici stringine değer gelmeyene kadar yani okuncak değer kalmayana kadar devam ediyo.
Oku.close
fs.close
VStudio şu an kurulu değil.Elimden geldiğince yardımcı olmaya çalıştım C# ile uraşıyorum.VB'de ufak tefek yazım hataları olabilir giderirsin.