Dim j As Long
Open "C:\27548.jpg" For Binary As #1
ReDim aryContent(LOF(1) - 1)
j = LOF(1)
Get #1, , aryContent
Close #1
Debug.Print j
上述代码可将二进制文件全部读到内存。
“vb怎么把二进制文件中的数据完全读取“
Dim j As Long
Open "C:\27548.jpg" For Binary As #1
ReDim aryContent(LOF(1) - 1)
j = LOF(1)
Get #1, , aryContent
Close #1
Debug.Print j
