Jag håller på med ett enklare glosprogram och när man lägger till nya glosor visas de i två listor. När jag sedan vill föra över listornas innehåll till ett txt dokument fungerar inte detta. List1.text skickar bara in markerade värden från listan till dokumentet. Men jag vill ha in alla. Några förslag på hur detta kan lösas. Har funderat lite på att köra en loop och därigenom spara alla glosor men det känns väldigt omständigt som sagt!

Testa denna princip
<code>
Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long, i As Long
FileNum = FreeFile
'Sökvägen "C:\Temp" måste finnas
'Ett annat sätt är att du använder App.Path
'Då hamnar Glosor.txt i samma mapp som ditt projekt
'Ex: Open App.Path & "\Glosor.txt" For Output As #FileNum
Open "C:\Temp\Glosor.txt" For Output As #FileNum
For i = 0 To List1.ListCount - 1
Print #FileNum, List1.List(i)
Next 'i
Close #FileNum
End Sub
</code>