Per aprire un file Vb6

[mm90187]

Innanzitutto ho impostato la proprietà Flags a 2.

CommonDialog1.Filter = "File di Testo (*.txt)|*.txt|"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, Text1
Close #1

Ma mi da' errore di run time 62 input oltre la fine del file

[SKIAT]

prova a lasciare il flag a 0 come di default...
io non l'ho mai tocato e mi è sempre funzionato

[chipdb]

Devi aggiungere anche il controllo.

Do While Not EOF(1)
Input #1, Var
text1=text1 & var
Loop

Ciao

[mm90187]

Dim data as string
Dim Data1 as string
CommonDialog1.Filter = "File di Testo (*.txt)|*.txt|"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Data, Data1
Text1.text = Data
Text4.text = Data1
Loop
Close #1
End sub

Mi dà sempre lo stesso errore run-time 62 input oltre la fine del file

Grazie

[mm90187]

Aspetto ansioso ho qualche problema altrimenti non posso proseguire
Grazie a TUTTI