WriteFileRandom

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 Scrittura_File_Random()
Dim I As Integer
NumFile = FreeFile
Open "d:\c++\prova2.PLJ" For Random As NumFile Len = Len(Dati_Rec)
'Recupera la posizione dell'ultiomo record

I = LOF(NumFile) \ Len(Dati_Rec)
Do
With Dati_Rec
.Nome = InputBox("Inserici il nome")
.Cognome = InputBox("Inserici il cognome")
.Eta' = InputBox("Inserici l'eta'")
End With
'Scrittura dei dati inseriti

I = I + 1
Put #NumFile, I, Dati_Rec
R = MsgBox("Altri dati da inserire?", vbYesNo)
Loop Until R = vbNo
Close NumFile
End Sub