原创-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 by the binary function to read and write arbitrary files, on-line may have many examples, but I do, are the most close to the easy to use, only need to enter the file path and file is complete array of reading and writing: Public Function VBFileBin_Read (fn As String, dat () As Byte) As Long Public Sub VBFileBin_Write (fn As String, dat () As Byte)