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

Question

如题所述

Answer 1

    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

上述代码可将二进制文件全部读到内存。