Hi.
This is my code:
But i can“t get no data from the saved files, my grid is blank, please help out.Code:Private Sub abrir_Click()
For j = 0 To 3
a = App.Path & "\Basedados\" & (j + 1) & ".txt"
Open a For Input As #(j + 1)
While EOF(j + 1)
Grid1.Col = 1
Grid1.Row = i
Input #(j + 1), f
Grid1.Text = f
Grid1.AddItem ""
Wend
Close #(j + 1)
Next j
End Sub
numibesi
