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