Azzerare un gruppo di byte in un file

Poniamo il caso di voler azzerare all'interno di un file i primi quattro byte senza compiere alcun ciclo sul medesimo.

Potremo utilizzare questa modalità:

Private buff[4] As Byte


Public Sub Button1_Click()

Dim aFl As File
Dim b As Byte

 aFl = Open "/tmp/mio_file" For Write

   For Each b In buff
     b = 0
   Next

    Write #aFl, buff As Byte[]

   a.Close
	   
End

Oppure, volendo usare un array monodimensionale, si dovrà adoperare il metodo “Write” della funzione (in questo caso) byte[]:

Public Sub Button1_Click()

 Dim aFl As File  
 Dim buff As New Byte[4]

  aFl = Open "/tmp/mio_file" For Write

   buff.Write(aFl)

 aFl.Close

End