[VB6.0] Open file

[sebamix]

Originariamente inviato da hcka
Scrivendo così mi va al termine della riga, poi si blocca ancora!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = strIn
Close #N
Loop

Prima invece arrivava al primo segno di punteggiatura!

Dim N As Integer
N = FreeFile
Dim strIn As String
Open CommonDialog1.FileName For Input As #N
Do While EOF(N) = False
Line Input #N, strIn
txt1.Text = txt1.text & vbcrlf & strIn

Loop
Close #N