codice:
Dim numrec As Integer 'numero di record nel file 
numfile = FreeFile 
numrec = FileLen(numfile) / Len(rprod) 
Open "prod2.dat" For Random As numfile Len = Len(rprod) 
   put# numfile,numrec,rprod
close