Hab hier ein Code aber der geht net.
Code: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