Hej!


Jag har lite problem med filhantering. När jag öppnar en fil vill jag se filens namn i en listruta och öppnar jag fler än en så ska jag kunna se alla filer som är öppna i listrutan, problemet är att om jag tex. har tre tal i en fil, så skrivs filnamnet ut tre gånger istället för en.

Private Sub Command1_Click()
Dim tal As Integer
Dim test As String
test = InputBox("Filnamn")
Open test For Input As #1
While Not EOF(1)
Input #1, tal
List2.AddItem test ‘Det är här jag vill skriva ut filnamet
List1.AddItem tal
Wend
Close #1
End Sub


/Martin

Hej!
Prova och flyttaom lite i koden så tror jag det funkar som du vill

<code>
Private Sub Command1_Click()
Dim tal As Integer
Dim test As String

test = InputBox("Filnamn")

List2.AddItem test ‘Det är här jag vill skriva ut filnamet

Open test For Input As #1
While Not EOF(1)
Input #1, tal
List1.AddItem tal
Wend
Close #1
End Sub
</code>


//Tobbe