Fichier binaire lecture - ecriture avec FileSystem

Question

Bonjour a tous, je recherche actuellement a écrire et lire dans un fichier en mode binaire via ces deux fonctions :
My.Computer.FileSystem.WriteAllBytes(file ,data ,append)
My.Computer.FileSystem.ReadAllBytes(file)

Mais je ne vois pas du tout comment les utiliser...

Quelqu'un aurait-il un code a proposer utilisant ces deux fonctions ?
(Si possible, code complet avec déclaration des variables et tout)

Un grand merci d'avance.

cs_Anakin79 · Answer

Bonjour, x°


Essaye ce code.



    Imports System.IO
    Sub FichierBinaire(ByVal NomFichier As String)
        Dim br As BinaryReader
        Dim bw As BinaryWriter
        Dim fs As FileStream
        Dim i As Integer
        Try
            If Not File.Exists(NomFichier) Then
                'Le fichier n'existe pas. On le crée
                bw = New BinaryWriter(File.Create(NomFichier))
                For i = 0 To 9
                    bw.Write(i)
                Next
                bw.Close()
            End If
            'Ouverture du fichier et Ecriture du contenu du fichier sur la console
            fs = File.Open(NomFichier, FileMode.Open)
            br = New BinaryReader(fs)
            Console.WriteLine("Debut du fichier")
            While fs.Position < fs.Length
                Console.Write(br.ReadInt32())
            End While
            Console.WriteLine("{0}Fin du fichier", ControlChars.CrLf)
        Finally
            'Fermeture Binaryreader
            If Not IsNothing(br) Then br.Close()
            'Fermeture Binarywriter
            If Not IsNothing(bw) Then bw.Close()
        End Try
    End Sub



En espérant t'avoir aider.
Anakin79

cs_Anakin79 · Answer

a oui aussi, je n'es pas repris tes bouts de code, 

désoler.

Fichier binaire lecture - ecriture avec FileSystem

2 réponses

Votre réponse

Discussions similaires