ASP.NET - FONCTION DE PASSAGE D'UN FICHIER BINAIRE VERS UN TABLEAU DE BYTE

' -----------------------------------------------------
Public Shared Function FileToByteArray(ByVal CheminFichier As String) As Byte()
 ' Fonction qui permet de passer d'un Fichier vers un tableau de Byte
 Dim fsData As FileStream
 Dim xTemp() As Byte
 fsData = New FileStream(CheminFichier, FileMode.Open, FileAccess.Read)
 Dim rData As New BinaryReader(fsData)
 xTemp = rData.ReadBytes(fsData.Length)
 rData.Close()
 fsData.Close()
 Return xTemp
End Function

' -----------------------------------------------------
Public Shared Function ByteArrayToFile(ByVal fichier As Byte(), ByVal CheminFichier As String) As String
 ' Fonction qui permet de passer d'un tableau de Byte vers un Fichier
 Dim objFileStream As FileStream
 objFileStream = New FileStream(CheminFichier, FileMode.Create, FileAccess.Write)
 objFileStream.Write(fichier, 0, fichier.Length)
 objFileStream.Close()
 Return "ok"
End Function
' -----------------------------------------------------