编写二进制文件分割与合并时的问题

Question

我以前也碰到过,我的做法是先做一个交换文件,合并后到交换文件中,这时候多了一个字节,没关系,重新打开进行读取,写到目标文件即可.

Answer 1

不能用String
会存在UniCode<->ANSI+DBCS的转换问题
应该用Byte数组可以参考这个：复制文件：
Public Sub MyCopy(SFile As String, DFile As String)
    Dim TempFile As Integer
    Dim TempBytes() As Byte
    Dim FileLen As Long
    
    TempFile = FreeFile
    
    Open SFile For Binary As #TempFile
    FileLen = LOF(TempFile)
    ReDim TempBytes(1 To FileLen)
    Get #TempFile, , TempBytes
    Close #TempFile
    
    Open DFile For Binary As #TempFile
    Put #TempFile, , TempBytes
    Close #TempFile
    
End Sub