VB - Comment puis-je lire et écrire un fichier binaire?

Question

Comment lire un tableau d'octets brut de tout fichier ...

 Dim bytes() as Byte

.. puis écrire que tableau d'octets de nouveau dans un nouveau fichier?

J'ai besoin comme un tableau d'octets à faire un peu de traitement entre les deux.

---

J'utilise actuellement:

Pour lire

 Dim fInfo As New FileInfo(dataPath)
 Dim numBytes As Long = fInfo.Length
 Dim fsAs New FileStream(dataPath, FileMode.Open, FileAccess.Read)
 Dim br As New BinaryReader(fs)
 Dim bytes As Byte() = br.ReadBytes(CInt(numBytes))
 br.Close()
 fs.Close()

Pour écrire

Dim fs As System.IO.FileStream
fs = New System.IO.FileStream(outpath, System.IO.FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()

Answer 1

Dim data() as Byte = File.ReadAllBytes(path1)
File.WriteAllBytes(path2, data)

Answer 2

System.IO.File.ReadAllBytes("myfile.txt")

Answer 3

Essayez ceci: -

Dim bytes() as Byte
bytes = File.ReadAllBytes(fileName)
'' # Do stuff to the array
File.WriteAllBytes(otherFileName, bytes)