WriteFileSeq

'Inserire il codice seguente nelle dichiarazioni generali di un form

Private Type Dati_Rec
Nome As String
Cognome As String
Eta' As Integer
End Type
Dim Dati_Rec As Dati_Rec
Dim R As String, NumFile As Integer
Private Sub Scrittura_File_Campi_Sequenziale()
NumFile = FreeFile
Open "d:\c++\prova1.PLJ" For Append As NumFile
Do
Dati_Rec.Nome = InputBox("Inserici il nome")
Dati_Rec.Cognome = InputBox("Inserici il cognome")
Dati_Rec.Eta' = InputBox("Inserici l'eta'")

'Scrittura dei dati inseriti

Write #NumFile, Dati_Rec.Cognome, Dati_Rec.Nome, Dati_Rec.Eta'
R = MsgBox("Altri dati da inserire?", vbYesNo)
Loop Until R = vbNo
Close NumFile
End Sub