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
675724
Stichwortwolke anzeigen
Foren-Regeln