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