Skriv til txt fra list

Åh ja, og svaret i giver skal også være inkluderet hvordan man rydder en txt-fil. Dvs gøre den helt blank, inden man lagrer dataene :).

Her er måske noget du kan bruge:

Private Sub Form_Load()
Me.List1.AddItem "Linje 1"
Me.List1.AddItem "Linje 2"
Me.List1.AddItem "Linje 3"
End Sub

Private Sub Command1_Click()
Dim a
Dim acount
Dim Linje
acount = Me.List1.ListCount
a = 0

Open App.Path & "\tekstfil.txt" For Output As #1
    While a < acount
        Linje = Me.List1.List(a)
        Print #1, Linje
        a = a + 1
    Wend
Close #1

End Sub

takker :)