Usare files come tabelle anche qui!

Voglio provare a trattare un file come una tabella (cosa che non mi pare di aver mai fatto neanche in VB6)...

I campi della tabella saranno Nome, Cognome, Età.

Così:

Nome	Cognome	Età
Mario	Rossi	19
Claudio	Bianchi	23

Ed ecco come con FilePut inserisco i record nel file-tabella e come con FileGet li recupero:

Module Module1
    Structure Persona
         Dim Nome As String
         Dim Cognome As String
        Dim Eta As Integer
    End Structure


    Sub main()

        Dim Individuo As New Persona
        Dim Recipiente As New Persona
        With Individuo
            .Nome = "Mario"
            .Cognome = "Rossi"
            .Eta = 19
        End With
        FileOpen(1, "C:\Users\Io\Documents\file.txt", OpenMode.Random, , , 24)
        FilePut(1, Individuo, 1)
        FileGet(1, Recipiente, 1)
        MsgBox(Recipiente.Nome & " " & Recipiente.Cognome & " " & Recipiente.Eta)
    End Sub
End Module

Funziona! La casella di testo mi mostra che i dati sono stati scritti sul file e recuperati correttamente da un'altra variabile dello stesso tipo.