“col为一个ADO字段,DiskFile为一个文件名,它可以为一个远程文件。 Dim strData() As Byte “声明一个动态数组 Dim NumBlocks As Long “读写块数 Dim FileLength As Long “文件长度 Dim LeftOver As Long “剩余字节数 Dim SourceFile As Long ‘文件句柄 Dim i As Long SourceFile = FreeFile “获得...