Public Sub TableauDeByteVersFicher(ByVal CheminFichier As String, ByVal TableauDeByte() As Byte)
 
	Dim MonFileStream As New System.IO.FileStream(CheminFichier, System.IO.FileMode.Create) 
	MonFileStream.Write(TableauDeByte, 0, TableauDeByte.Length - 1)
	MonFileStream.Close()

End Sub
' Exemple d'utilisation : 
TableauDeByteVersFicher("C:\LeChemin\DeVotre\Fichier.Ext", MonTableauDeBytes) 

public void TableauDeByteVersFicher(string CheminFichier, byte[] TableauDeByte) 
  {
	System.IO.FileStream MonFileStream = new System.IO.FileStream(CheminFichier, System.IO.FileMode.Create); 
	MonFileStream.Write(TableauDeByte, 0, TableauDeByte.Length - 1);
	MonFileStream.Close();
  }

// Exemple d'utilisation :

TableauDeByteVersFicher(@"C:\LeChemin\DeVotre\Fichier.Ext", MonTableauDeBytes);

public static void tableauDeBytesVersFichier

  (byte[] tableau, java.io.File fichier)
  throws java.io.IOException {
    java.io.FileWriter f = new java.io.FileWriter(fichier);
    //on itère sur chaque élément, car il n'y a pas de fonction globale
    for (int i = 0; i < tableau.length; i++)
        f.write(tableau[i]);
    f.close();
}

type
   pByteArray = ^TByteArray;
   TByteArray = array[0..255] of byte;
 
 procedure WriteByteFile(const FileName : string; const BA : TByteArray);
 var TFS : TFileStream;
 begin
   TFS := nil;
   try
     TFS := TFileStream.create(FileName, fmCreate);
     TFS.WriteBuffer(BA,SizeOf(TByteArray));
   finally
     TFS.Free;
   end;
 end;
 
 

 
utilisation :

procedure TForm1.FormCreate(Sender : TObject);
 var TBA : TByteArray;
     x : integer;
 begin
   for X := 0 to 255 do TBA[X] := 255;
   WriteByteFile('c:\test.bin',TBA);
 end;

Private Sub CreateFileFromBytes(ByVal  sPath As  String, ByRef aBytes() As Byte)
    Dim FF As Integer
    FF = FreeFile
    Open sPath For Binary As #FF
        Put #FF, , aBytes
    Close #FF
End Sub