如何用VB按“字节”读取数据？

[PZ12345678]

俺这两天接到一个程序，要用VB以“字节”为单位读取数据，并把它转换为16进制。但VB只提供读字符的的函数，如果碰到汉字就不行了。
请各位大虾指教！！！拜托！！！

[renjunjun]

定义一个Byte的数组,把文件直接读进数组再遍历这个数组换成16进制就可以了.
我这儿没有VB,你可以自己试一下.
Open FileName For Binary As #1
ReDim Preserve MyArray(LenB(#1))
Get #1, , MyArray
Close #1

[zt31]

好像copymemory可以实现类似指针的操作，msdn上找找看

[rainstormmaster]

大致这样：

dim buff() as long
dim filename as string
filename="你的文件路径"
dim i as long
i=filelen(filename)
redim buff(i-1)
open filename for binary as #1
get #1,,buff
close #1
'
dim s as string,temps as string
for i=0 to ubound(buff)
temps="00"+hex(buff(i))
temps=right(temps,2)
s=s+temps
next

debug.print s