Lee un archivo binario en una matriz

Question

¿Cuál es la forma más rápida (usando VB6) para leer un archivo binario completo y grande en una matriz?

Answer 1

Aquí hay una forma, aunque está limitado a archivos de alrededor de 2 GB de tamaño.

Dim fileNum As Integer 
    Dim bytes() As Byte 

    fileNum = FreeFile 
    Open "C:\test.bin" For Binary As fileNum 
    ReDim bytes(LOF(fileNum) - 1) 
    Get fileNum, , bytes 
    Close fileNum 

Answer 2

Puede comparar estos dos

Private Function ReadFile1(sFile As String) As Byte() 
    Dim nFile  As Integer 

    nFile = FreeFile 
    Open sFile For Input Access Read As #nFile 
    If LOF(nFile) > 0 Then 
     ReadFile1 = InputB(LOF(nFile), nFile) 
    End If 
    Close #nFile 
End Function 

Private Function ReadFile2(sFile As String) As Byte() 
    Dim nFile  As Integer 

    nFile = FreeFile 
    Open sFile For Binary Access Read As #nFile 
    If LOF(nFile) > 0 Then 
     ReDim ReadFile2(0 To LOF(nFile) - 1) 
     Get nFile, , ReadFile2 
    End If 
    Close #nFile 
End Function 

Yo prefiero la segunda, pero tiene este efecto secundario desagradable. Si sFile no existe, el modo For Binary crea un archivo vacío sin importar que se use Access Read.