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 fl As File
Dim b As Byte

 fl = Open "/file/da/azzerare" For Write

   buff.Fill(0, 0, 4)

    Write #fl, buff As Byte[]

   fl.Close
	   
End

Oppure si potrà adoperare direttamente il metodo “.Write” della Classe byte[]:

Public Sub Button1_Click()

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

  fl = Open "/file/da/azzerare" For Write

   buff.Write(fl)

  fl.Close

End