如何读取二进制文件?

Question

用传统的文件方式啊
用OPEN打开文件CLOSE关闭文件
open filename for binary as #1
close #1
一般的VB书上都有

Answer 1

Dim a() As Byte
Open App.Path & "\" & "Excel1.xls" For Binary As #1a = InputB(LOF(1), #1)
Close #1

Answer 2

呵呵 也就是open ... for binary as ..
  然后就用get,put,seek来操作啊。很简单的。

Answer 3

各位,你们试过吗?
我是这样作的,可是老是会多几个字节,或者干脆少了一大截
            Open G_H_FileName For Input As File_N
            Do While Not EOF(File_N)
                Line Input #File_N, qwer
                Ss = Ss + qwer + Chr(13) + Chr(10)
            Loop
            Close #File_N
            return ss