ListView in txt Speichern

[L!x]

Hab hier ein Code aber der geht net.

Dim intCounter As Integer
Dim strTemp As String

Open "c:\temp.ini" For Output As #1
  
  For intCounter = 0 To lv.ListItems.Count - 1
    strTemp = lv.ListItems(intCounter)
    Print #1, strTemp
  Next intCounter

Close #1

[Lemontree]

Dim intCounter As Integer
Dim strTemp As String

Open "c:\temp.ini" For Binary As #1

For intCounter = 0 To lv.ListItems.Count - 1
strTemp = lv.ListItems(intCounter)
Put #1, strTemp
Next intCounter

Close #1

Jetz gehts