Hej

Jag för över enstaka filer från en File1 till en List2. Sedan sparar utan problem. Men öppna den till List2, går inte så bra. Hur??

Private Sub Klick1_Click()
If File1.ListIndex <> -1 Then
List2.AddItem File1
End If
End Sub

Private Sub Klick2_Click()
If List2.ListIndex <> -1 Then
List2.RemoveItem List2.ListIndex
End If
End Sub

Private Sub Spara1_Click()
'Spara innehållet i en Listbox till en fil
Dim f%, i%, FileName$
FileName = "c:\Listan2.inf"
f = FreeFile: i = 0
Open FileName For Output As f
For i = 0 To List2.ListCount - 1
Print #f, List2.List(i)
Next i
Close f
End Sub


Har testat denna variant, men får nedslag på bl.a.
"If Dir(FileName) Then... "

Dim f%, i%, FileName$, TextStr$
FileName = "c:\Listan2.inf"
f = FreeFile: i = 0
List2.Clear
If Dir(FileName) Then
Open FileName < > "" For Input As f
Do While Not Eof( f )
Line Input #f, TextStr
List2.AddItem TextStr
Loop
Close f
End If

Löste det....

Private Sub Öppna1_Click()
Dim f%, i%, FileName$, TextStr$
FileName = "c:\Listan2.inf"
f = FreeFile: i = 0
List2.Clear
Open "c:\Listan2.inf" For Input As f
Do While Not EOF(f)
Line Input #f, TextStr
List2.AddItem TextStr
Loop
Close f

End Sub