VB6读取超2GB二进制文件遇报错，求有效解决方法

这个问题的根源在于VB6原生的文件IO（比如Get语句）依赖有符号Long类型来记录文件位置，而Long的最大值是2^31-1（即2147483647字节，约2GB），当文件读取位置超过这个值时，就会触发“无效记录号”的运行时错误63。

针对这个问题，使用Windows API是最可靠的解决方案——虽然VB6没有原生的无符号64位类型，但我们可以通过一些技巧来适配API的64位文件指针要求。下面是完整的实现步骤和代码：

第一步：声明所需的Windows API函数与常量 #

在VB6模块中添加以下声明（注意要放在模块的通用部分，不能放在窗体里）：

Option Explicit

Private Const GENERIC_READ As Long = &H80000000
Private Const OPEN_EXISTING As Long = 3
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80

Private Type LARGE_INTEGER
    LowPart As Long
    HighPart As Long
End Type

Private Declare Function CreateFileA Lib "kernel32" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
Private Declare Function SetFilePointerEx Lib "kernel32" (ByVal hFile As Long, ByVal liDistanceToMove As Currency, lpNewFilePointer As Currency, ByVal dwMoveMethod As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

这里我们用Currency类型来模拟64位整数——因为Currency是64位定点数，刚好可以容纳API所需的文件偏移量（只需将字节数除以10000，因为Currency的刻度是0.0001，存储时会自动处理）。

第二步：实现大文件读取函数 #

下面是一个封装好的函数，用于从指定偏移位置读取指定长度的二进制数据：

Function ReadLargeBinaryFile(ByVal filePath As String, ByVal startOffset As Currency, ByVal readSize As Long) As Byte()
    Dim hFile As Long
    Dim bytesRead As Long
    Dim buffer() As Byte
    Dim success As Boolean
    
    ' 打开文件
    hFile = CreateFileA(filePath, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
    If hFile = -1 Then
        Err.Raise vbObjectError + 1001, , "无法打开文件"
        Exit Function
    End If
    
    ' 设置文件指针到指定偏移
    success = SetFilePointerEx(hFile, startOffset / 10000, 0, 0)
    If Not success Then
        CloseHandle hFile
        Err.Raise vbObjectError + 1002, , "无法定位文件指针"
        Exit Function
    End If
    
    ' 初始化缓冲区
    ReDim buffer(readSize - 1)
    
    ' 读取数据
    success = ReadFile(hFile, buffer(0), readSize, bytesRead, 0)
    If Not success Or bytesRead <> readSize Then
        CloseHandle hFile
        Err.Raise vbObjectError + 1003, , "读取文件失败"
        Exit Function
    End If
    
    ' 关闭文件句柄
    CloseHandle hFile
    
    ReadLargeBinaryFile = buffer
End Function

第三步：使用示例 #

你可以像这样调用上述函数，读取超过2GB位置的文件内容：

Sub TestReadLargeFile()
    Dim filePath As String
    Dim offset As Currency
    Dim buffer() As Byte
    
    filePath = "C:\YourLargeFile.bin"
    ' 读取从2.5GB位置开始的4096字节（2.5GB = 2684354560字节）
    offset = 2684354560@ ' 用@标记为Currency类型
    buffer = ReadLargeBinaryFile(filePath, offset, 4096)
    
    ' 处理读取到的buffer数据...
End Sub

关键细节说明 #

1. 关于64位偏移的处理：
   VB6没有原生的UInt64类型，但Currency类型是64位的，我们通过将字节偏移量除以10000来适配它的刻度（因为API的SetFilePointerEx接收的LARGE_INTEGER可以通过Currency来转换，VB6会自动处理高低位的映射）。

2. 为什么不用FSO：
   你提到的Scripting.FileSystemObject确实只适合处理文本文件和小文件，它不支持直接的二进制大文件读取，所以API方案是最优选择。

3. 错误处理：
   示例中加入了基础的错误处理，你可以根据自己的需求扩展，比如处理读取到的字节数小于请求长度的情况（比如文件末尾）。

内容的提问来源于stack exchange，提问作者Jonathan Wood