lut, voilà j'aimerai savoir s'il est possible d'extraire directement le code binaire d'un fichier.
J'arrive à extraire les données octet par octet mais VB convertit automatiquement l'octet en numérique : bref je me retrouve avec une variable qui contient 7 par exemple alors que je voudrais 0000 0111

Merci par avance !

'Il faut convertir chaque octet en binaire
Private Function OctetToBin(Octet As Integer)
Dim Binaire As String * 8, Compteur As Integer, Reste As Integer
For Compteur = 0 To 7
Reste = Octet Mod 2
Octet = Octet \ 2
Mid(Binaire, 8 - Compteur, 1) = Trim(Str(Reste))
Next Compteur
OctetToBin = Left(Binaire, 4) & " " & Mid(Binaire, 5)
End Function

'et on appelle la fonction pour chaque octet :
Dim Truc as String*9
Truc = OctetToBin(7) ' 7 dans ton exemple
'Renvoie la chaîne "0000 0111"



-------------------------------
Réponse au message :
-------------------------------

lut, voilà j'aimerai savoir s'il est possible d'extraire directement le code binaire d'un fichier.
J'arrive à extraire les données octet par octet mais VB convertit automatiquement l'octet en numérique : bref je me retrouve avec une variable qui contient 7 par exemple alors que je voudrais 0000 0111

Merci par avance !