[VB6] Assegnare un file ad un array di tipo Byte

[xegallo]

Originariamente inviato da zampa28
Ho usato questo

    Dim TheBytes() As Byte
    ReDim TheBytes(FileLen(sFile) - 1)
    ifile = FreeFile
    Open sFile For Binary Access Read As #ifile
    Get #ifile, , TheBytes()
    Close #ifile

c'è differenza nelle prestazioni?

dovrebbe essere + veloce ma fai così

    Dim TheBytes() As Byte
    
    ifile = FreeFile
    Open sFile For Binary Access Read As #ifile
    ReDim TheBytes(lof(ifile))
    Get #ifile, , TheBytes()
    Close #ifile