Dim FileBuffer() As Byte
Dim FileNumberS As Long
'将文件一次全取到 FileBuffer 数组里:
FileNumberS = FreeFile
Open FilePath For Binary Access Read As #FileNumberS
Dim lFileLen As Long
lFileLen = FileLen(FilePath)
If lFileLen > 0 Then
ReDim FileBuffer(1 To lFileLen) As Byte
Get #FileNumberS, , FileBuffer '将文件一次全取到 FileBuffer 数组里了
End If