Dovrei scrivere alla fine di un file binario un record ed uso la seguene sintassi ma mi da errore dicendo che il numero del record è errato chi mi sa aiutare ??


Dim TRec As RecArticolo ' RECORD DI APPOGGIO

Dim NumFile As Integer ' DESCRITTORE DEL FILE
Dim DimRec As Integer ' DIMENSIONE DEL GENERICO RECORD

If Len(TxtData(0)) > 0 Then

NumFile = FreeFile

' SCARICO I DATI IN UN RECORD TEMPORANEO
TRec.Codice = TxtData(0)
TRec.Descrizione = TxtData(1)
TRec.Prezzo = IIf(Len(TxtData(2)) = 0, 0, TxtData(2))
TRec.Quantità = IIf(Len(TxtData(3)) = 0, 0, TxtData(3))

' SALVATAGGIO DEI DATI SUL FILE
DimRec = Len(TRec)
Open Path For Random As #NumFile Len = DimRec

Put #NumFile, (LOF(NumFile) \ DimRec)+1, TRec

Close #NumFile

Call Cmd_Click(1)
Else
MsgBox "Specificare almeno un codice articolo valido . . ."
End If