怎样写二进制文件？

Question

Dim binVar() As Byte  Open "c:\Read_gg.gif" For Binary Access Read As #1
  ReDim binVar(LOF(1))
  Get #1, , binVar()
  Close #1  Open "c:\Write_gg.gif" For Binary Access Write As #1
  Put #1, , binVar()
  Close #1

Answer 1

Open "a.txt" For Binary As #1
    For i = 1 To SaveLength step vLen
          Put #1, i, vartest
    Next i
    close #1其中vLen是varTest中的字节数
SavLength是文件长度