hvordan gemmer jeg alt i min ListView1 i en txt fil

Loop over items i listview og skriv hver item til en linie i filen. Gør det omvendte for at læse fra fil til listview

listview > fil

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  for i = 0 to List1.ListCount - 1
    Print #Filnummer, list1(i)
  next i
  Close #Filnummer

Omvendt:

  i=0
  list1.clear
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(Filnummer) 
    Line Input #Filnummer, list(i)
    i = i+1
  wend
  Close #Filnummer

Hov - Omvendt skal nok se sådan ud:

  list1.clear
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(Filnummer) 
    Line Input #Filnummer, dummy
    list1.additem dummy
  wend
  Close #Filnummer

den vil ikke gemme havd er der galt


Private Sub Command1_Click()
Filnummer = FreeFile
CommonDialog1.ShowSave

  Open CommonDialog1.FileName For Output As #Filnummer
  For i = 0 To ListView1.ListItems.Count - 1
    Print #Filnummer, ListView1(i)
  Next i
  Close #Filnummer
End Sub

Private Sub Command2_Click()
ListView1.ListItems.Add , , Text1.Text, 1, 1

End Sub

Hvad mener du - kommer der en fejl? Eller er filen tom? Er du sikekr på at der er noget i dit listview osv osv osv.

Test med

  Open "C:\test.txt" Output As #1
  Print #1, "Hej"
  Close #1

og se om det virker, og indfør så ændringer en efter en til du ser hvad du har lavet forkert :o)