> Poster måske koden senere!!!
> Da jeg har koden en ligggede på en maskine uden netværk og internet.
Det kan da gøres meget simplere (synes jeg):
Private Sub Command1_Click()
Dim Skriv As String
Open "C:\windows\skrivebord\ip.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Skriv
Text1.Text = Text1.Text & vbCrLf & Skriv
Loop
Close #1
text1.text = right(text1.text, len(text1.text) - 1)
End Sub
Eller:
Private Sub Command1_Click()
Dim Skriv As String
Dim FirstLine as boolean
Open "C:\windows\skrivebord\ip.txt" For Input As #1
FirstLine = true
Do Until EOF(1)
Line Input #1, Skriv
if FirstLine = false then
Text1.Text = Text1.Text & vbCrLf & Skriv
Else
Text1.Text = Skriv
end if
FirstLine = false
Loop
Close #1
End Sub
Forudsat jeg forstod hvad du sagde er det her IMO langt nemmere...
--
Mvh. / Regards Mikkel Christensen