“vb怎么把二进制文件中的数据完全读取“

“vb怎么把二进制文件中的数据完全读取“

Dim aryContent() As Byte
    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上述代码可将二进制文件全部读到内存。

存放二进制文件的数据要使用字节型数组,不能是字符型数组： dim dat() as byte dim filesize as long '文件长度 filesize = filelen(文件名) '获取文件长度 redim dat(filesize - 1) as byte open 文件名 for binary as #1 get #1, , dat close 数据已经在dat数组中了，你可以进行任意处理