Código:
Con esta cargas un archivo y obtienes la matriz de bytes. Espero puedan ayudarme a reducir el tiempo de carga. GraciasFunction LoadFile(FName As String, Method As Integer) As String 'En Method 0 es para binario y 1 para textual Dim Cont&, FLen&, tmpStr$, Num%, opByte As Byte FLen=FileLen(FName) Num = FreeFile() Open FName For Binary Access Read As #Num For Cont = 1 To FLen Get #Num, Cont, opByte If (Method = 0) Then tmpStr = tmpStr & ChrB$(opByte) Else tmpStr = tmpStr & Chr$(opByte) End If DoEvents Next Cont LoadFile = tmpStr Close #Num End Function
NOTA: He oido por ahí que si uso variables de 4 bytes puede ser que funciones pero no se como.