Scrivere i dati dei membri di una Struttura in un file direttamente

E' possibile scrivere in un file mediante una sola riga d'istruzione i dati contenuti dai membri di una Struttura, passando questa alla funzione "Write" ed evitando così di scrivere nel file un membro per volta.

Mostriamo di seguito un semplice esempio:

Public Struct STRUTTURA
  b As Byte
  c As Short
  i As Integer
End Struct


Public Sub Main()

 Dim stru As New STRUTTURA
 Dim fl As File

 With stru
   .b = 9
   .c = 999
   .i = 99999
 End With

 fl = Open "/percorso/del/file/da/scrivere/" For Create

' Passiamo alla funzione "Write" la variabile di tipo "Struttura" da noi creata:
 Write #fl, stru As STRUTTURA

 fl.Close

End