File - Open File FOR INPUT AS #1

File # ' apertura e scrittura di un file di testo
Open Dir2.Path & "\" & SalvaDocumenti(I) For Input As #1 ' file di lettura
Do While Not EOF(1) ' Ripete fino alla fine del file.
Line Input #1, TextLine ' Assegna la riga a una variabile.
Data1.Recordset.AddNew
If I = 1 Then
Data1.Recordset.Fields("Codice") = Mid(TextLine, 2, 5)
End If

Data1.Recordset.Fields(Campi(I)) = TextLine
Data1.Recordset.Update

TextLine = ""
Loop
Pannello.Caption = "Chiusura del file " & Documenti(I)
Pannello.Refresh
Close #1 ' Chiude il file.

End If
Next