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
【VB声明】
Private Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long