How to do binary read/write to a file

[NC]

I have a problem of read/write binary file.

When I use the following statement


Dim Ar(5) As Byte
Ar(0) = 1
Ar(1) = 3
Ar(2) = 5
Ar(3) = 6
Ar(4) = 7
Open "Test.bin" For Binary Access Write As #1
For i = 0 To 4
Write #1, Ar() ' <--- Error found
Next
Close #1

How can I read/write with binary file???

NC

 

[Tushar Mehta]

{snip}

For i = 0 To 4
Write #1, Ar() ' <--- Error found

*What* error found?

Maybe, you should consider the use of Write #1, Ar(i)?

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions