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")