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

[FrankWang]

有没有具体的原代码，我有些看不明白！？？
多谢
希望shines可以留个油箱或OICQ号码给我

[shines77]

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

[0xFFCD]

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

[playyuer]

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

[skt642]

76053关注！