Comment savoir la fin d'un fichier ouvert en stream pour qu'il soit lu en Binnaire! voici un petit morceau du code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim br As BinaryReader
Dim bw As BinaryWriter
Dim fs As FileStream
Try
s = File.Open(Form1.OFD.FileName, FileMode.Open)
br = New BinaryReader(fs)
While fs.Position < fs.Length
Code.Text = Code.Text & (br.ReadInt32)
 
End While
        Finally
            'Fermeture Binaryreader
            If Not IsNothing(br) Then br.Close()
            'Fermeture Binarywriter
            If Not IsNothing(bw) Then bw.Close()
End Try