如何读取二进制文件。

Question

我对在VB里读取文件一直弄不清楚，特别是对非文本文件的处理：
我用如下语句打开文件：
Open "c:\10.jpg" For Binary As #1
声明一个变量：
Dim buffer As Variant
读文件：
Get #1, , buffer
出错，提示“实时错误458，变量使用了一个VB不支持的自动化类型”请大伙帮我分析分析，如果有好的方法请回复。

Answer 1

把Dim buffer As Variant
改为Dim buffer() As byte

Answer 2

Dim buffer() As Byte
Dim mlen As Long
mlen = FileLen("c:\10.jpg")
ReDim buffer(mlen - 1)
Open "c:\10.jpg" For Binary As #1
Get #1, , buffer
'读文件:
Get #1, , buffer
Close #1
MsgBox UBound(buffer)