Public Function FichierVersTableauDeByte(ByVal CheminFichier As String) As Byte() 
	Dim MonFichier As New System.IO.FileInfo(CheminFichier)
	Dim MonFileStream As System.IO.FileStream = MonFichier.OpenRead() 
	Dim TableauDeBytes(MonFileStream.Length) As Byte

	' On charge le fichier dans un tableau de byte
	MonFileStream.Read(TableauDeBytes, 0, MonFileStream.Length)

	' On ferme le stream
	MonFileStream.Close()
	Return TableauDeBytes 

End Function

 
' Exemple d'utilisation :
Dim MesBytes() As Byte
MesBytes = FichierVersTableauDeByte("C:\LeChemin\DeVotre\Fichier.Ext")

public byte[] FichierVersTableauDeByte(string CheminFichier) 
  {
	System.IO.FileInfo MonFichier = new System.IO.FileInfo(CheminFichier); 
	System.IO.FileStream MonFileStream = MonFichier.OpenRead();
	byte[] TableauDeBytes = new byte[MonFileStream.Length];
	MonFileStream.Read(TableauDeBytes, 0, (int)MonFileStream.Length); 
	MonFileStream.Close();
	return TableauDeBytes; 
  }

 
// Exemple d'utilisation :


byte[] MesBytes;
MesBytes = FichierVersTableauDeByte(@"C:\LeChemin\DeVotre\Fichier.Ext");

Dim bAll() As Byte

bAll = My.Computer.FileSystem.ReadAllBytes(FileName)

Private Function FichierVersTableauDeByte(ByVal CheminFichier As String) As Byte()
    Dim fff As Integer
    fff = FreeFile
    Open CheminFichier For Binary As #fff
    ReDim FichierVersTableauDeByte(LOF(fff) - 1)
    Get #fff, , FichierVersTableauDeByte
    Close #fff
End Function
' Exemple d'utilisation :
Dim MesBytes() As Byte
MesBytes = FichierVersTableauDeByte("C:\LeChemin\DeVotre\Fichier.Ext")

Type 
  TBArray = Array Of Byte; 
Var  
  aBArray : TBArray; 
Procedure  File2ByteArray(Const aFile: String;Var  ByteArray: TBArray); 
Var MS:  TFileStream; 
Begin 
  MS :=  TFileStream.Create(aFile, fmOpenRead); 
  Try  
    SetLength(ByteArray, MS.size);  
    MS.ReadBuffer(ByteArray[0],  Length(ByteArray)); 
  Finally  
    MS.free; 
  End;  
End; 

{Utilisation} 
Procedure  Tfrm_Main.Button1Click(Sender: TObject); 
Begin 
  File2ByteArray('UMain.pas', aBArray); 
  {et  pour tester on affiche le résultat dans un TMemo}  
  Memo1.Lines.Text := PChar(aBArray); 
End;