Ahoj, chtěl bych poradit, když mám kód:
Dim soubor As New IO.StreamWriter("database.txt") 'otevřít soubor
For i As Integer = 0 To ListView1.Items.Count - 1 'projít všechny položky seznamu
soubor.WriteLine(ListView1.Items(i).SubItems(0).Text) 'zapsat datum
soubor.WriteLine(ListView1.Items(i).SubItems(1).Text) 'zapsat částku
soubor.WriteLine(ListView1.Items(i).SubItems(2).Text) 'zapsat popis
soubor.WriteLine(ListView1.Items(i).SubItems(3).Text) 'zapsat nevím co
Next
soubor.Close() 'zavřít soubor
No, a teď, kde mám chybku? :D Jakmile program zavřu, database.txt se prostě smaže, nevím co za to může. Děkuji za všechny rady.
|