binary File

[haroldweir]

Does anyone know how to load a binary file, to an array.

[Nucleus]

Don't know exactly what you want, but this code may help as it shows how to read all data from any file into a byte array:


Private Sub Command1_Click()
'Read all data into byte array using get statement

Dim ba() As Byte, ff&, i&, a

ff = FreeFile
Open "c:\tmp\test.txt" For Binary As #ff
ReDim ba(0 To LOF(ff) - 1)
Get #ff, , ba
Close #ff

For i = 0 To UBound(ba)
Debug.Print ba(i)
Next
End Sub