原创-VB下的按二进制方式读写任意文件的函数，网上可能有很多范例，但我做的，都是最贴近好用的，只需要输入文件路径和文件数组就完成读写： Public Function VBFileBin_Read(fn As String, dat() As Byte) As Long Public Sub VBFileBin_Write(fn As String, dat() As Byte)-Original-VB under way