Mettre un fichier dans un tableau de Bytes


Commenter

Contenu du snippet 

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

Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

Du même auteur (Nix)