Åben fra en *.txt fil [Mystisk].
HejJeg har nu siddet og set meget mærkelig ud... Jeg har altid lavet en stump kode som kan åbe en txt fil ind til en list Boks eller Tekst Boks men nu her vil det bare ikke ske.... Så jeg gik tilbage til min gamle VB lære bog og skre dette:
Dim Navn(200) As String
Dim Antalnavne As Integer
Private Sub Command1_Click()
Antelnavne = 0
Open \"c:\\1234.txt\" For Input As #1
Do While EOF(1) = False
Antelnavne = Antelnavne + 1
Line Input #1, Navn(Antalnavne)
Loop
Close #1
End Sub
Private Sub Command2_Click()
Dim navnID As Integer
List1.Clear
For navnID = 1 To Antalnavne
List1.AddItem Navn(navnID)
Next
End Sub
Jeg får ingen error eller noget men der vises bare ingen ting nede i list boksen.... Meget underligt efter min mening...
Truti
