- ' -----------------------------------------------------
- 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
- ' -----------------------------------------------------
' -----------------------------------------------------
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
' -----------------------------------------------------