关于有没有以字节打开文件并快速读取的方法………………

Question

油箱是: [email protected] OICQ嘛暂时不告诉。可以给我发信

Answer 1

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

Answer 2

我建议你去http://lovevb.2699.com,里面有几种方法