ReadFileRandom

'Inserire il codice seguente nelle dichiarazioni generali di un form

Private Type Dati_Rec
Nome As String * 20
Cognome As String * 20
Eta' As Integer
End Type
Dim Dati_Rec As Dati_Rec
Dim R As String, NumFile As Integer
Private Sub Lettura_File_Random()
Dim I%, NumRec%
NumFile = FreeFile
Open "d:\c++\prova2.PLJ" For Random As NumFile Len = Len(Dati_Rec)
I = 0
'Recupera il numero di record presenti nel file

NumRec = LOF(NumFile) / Len(Dati_Rec)
Do While I < NumRec
I = I + 1
Get #NumFile, I, Dati_Rec
With Dati_Rec
Debug.Print .Cognome, .Nome, .Eta'
End With
Loop
Close NumFile
End Sub