日期：2025年1月7日
作者：Commas
签名：(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释：如果您觉得有所帮助，帮忙点个赞，也可以关注我，我们一起成长；如果有不对的地方，还望各位大佬不吝赐教，谢谢^ - ^
1.01365 = 37.7834；0.99365 = 0.0255
1.02365 = 1377.4083；0.98365 = 0.0006
一、前言
在上期文章中，我们探讨了《文件的二进制合并》技巧，本期我们将进一步深入，讲解《如何实现文件的二进制合并》，为整个文件处理流程画上一个圆满的句号。在日常工作场景中，文件拆分与合并是常见的操作需求，特别是在网络传输受限或数据备份恢复的场合。接下来，我们来了解下VB6编程实现文件二进制合并功能。
二、什么是文件二进制合并
文件二进制合并是指将两个或多个文件的原始二进制数据按照一定的顺序组合成一个新的文件的过程。在这个过程中，不涉及对文件内容的解析或修改，而是直接将文件的数据部分（即文件的二进制码）依次复制到目标文件中。以下是文件二进制合并的几个关键点：
- 原始数据保留：合并后的文件保留了原始文件的所有数据，包括文件格式和内容，不进行任何转换或解释。
- 顺序性：合并文件时，需要确定文件的合并顺序。例如，可以按照文件名、大小或特定的规则来决定哪个文件的数据先被写入目标文件。
- 连续性：合并后的文件是一个连续的二进制流，原始文件的数据块在目标文件中是连续存储的，没有间隔。
- 兼容性：合并后的文件必须是可识别的格式，如果合并的文件类型不同，可能会导致合并后的文件无法正常使用。
三、应用场景
- 数据备份：将多个备份片段合并成一个完整的备份文件。
- 文件传输：大文件分割后传输，在接收端重新合并。
- 数据整合：将多个数据文件合并为一个，以便于统一处理。
四、二进制合并的基本原理
二进制合并是指将多个文件以二进制数据的形式组合成一个新文件的过程。在计算机中，所有的文件（文本文件、图像文件、音频文件等）最终都是以二进制数据存储的。二进制合并操作就是直接处理这些底层的二进制数据，将它们按一定的顺序拼接在一起。。以下是实现二进制合并的关键步骤：
- 打开文件：首先，需要打开所有要合并的源文件以及将要写入的目标文件。
- 读取数据：从第一个源文件开始，读取文件的数据部分。通常是从文件的开始位置读取，直到文件结束。
- 写入数据：将读取到的数据写入目标文件。如果是第一个源文件，通常是从目标文件的开始位置写入；如果是后续的文件，则写入到上一个文件数据之后。
- 重复操作：对每个要合并的源文件重复步骤2和3，直到所有文件都被处理。
- 关闭文件：完成所有文件的合并后，关闭所有打开的源文件和目标文件。
五、功能实现与示例代码
（1）功能封装
Private Sub MergeFiles(ByVal sourceFolder As String, ByVal filePattern As String, ByVal DestinationFilePath As String)
On Error Resume Next
'函数说明：文件合并
'创建作者：Commas
'创建时间：2025-01-03
'修改时间：
'------传参说明------
'sourceFolder：源文件所在的文件夹目录
'filePattern：文件匹配规则
'DestinationFilePath：目标文件
'------传参说明------
Dim fs As Object 'FileSystemObject
Dim folder As folder
Dim file As Object 'file
Dim inStream As Object 'ADODB.Stream
Dim outStream As Object 'ADODB.Stream
Dim fileList As Collection
Dim fileName As String
Dim fileCount As Long
Dim i As Long
' 创建 FileSystemObject 对象
'Set fs = New FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
' 检查目标文件夹是否存在
If Not fs.FolderExists(sourceFolder) Then
MsgBox "源文件夹不存在: " & sourceFolder, vbExclamation
Exit Sub
End If
' 获取文件夹对象
Set folder = fs.GetFolder(sourceFolder)
' 初始化集合来存储文件列表
Set fileList = New Collection
' 使用 FileSystemObject 的 GetFolder 和 GetFile 方法获取匹配的文件
For Each file In folder.Files
DoEvents: DoEvents: DoEvents: DoEvents
'Debug.Print file.Name, filePattern
If file.Name Like filePattern Then
fileList.Add file
End If
Next file
' 检查是否有匹配的文件
If fileList.Count = 0 Then
MsgBox "没有找到匹配的文件: " & filePattern, vbExclamation
Exit Sub
End If
' 初始化输出流
'Set outStream = New ADODB.Stream
Set outStream = CreateObject("ADODB.Stream")
outStream.Type = 1 'adTypeBinary
outStream.Open
'outStream.Mode = 3 'adModeReadWrite
' 按顺序合并文件
fileCount = fileList.Count
For i = 1 To fileCount
fileName = fileList(i).Path
' 打开输入流
'Set inStream = New ADODB.Stream
Set inStream = CreateObject("ADODB.Stream")
inStream.Type = 1 'adTypeBinary
inStream.Open
inStream.LoadFromFile fileName
' 读取文件内容并写入到输出流
outStream.Write inStream.Read()
' 关闭输入流
inStream.Close
Set inStream = Nothing
Next i
' 创建目标文件夹（如果不存在）
Dim DestinationFolder As String, idx As Integer
idx = InStrRev(DestinationFilePath, "\") - 1
If idx > 0 Then DestinationFolder = Left(DestinationFilePath, idx)
If Not fs.FolderExists(DestinationFolder) Then
fs.CreateFolder DestinationFolder
End If
' 保存合并后的文件
outStream.SaveToFile DestinationFilePath, 2 'adSaveCreateOverWrite
outStream.Close
Set outStream = Nothing
MsgBox "文件合并完成，共合并 " & fileCount & " 个文件。", vbInformation
End Sub
（2）调用示例
Private Sub btnMerge_Click()
Dim sourceFolder As String
Dim filePattern As String
Dim destinationFilePath As String
sourceFolder = "C:\SourceFiles"
filePattern = "*.bak"
destinationFilePath = "C:\MergedFiles\Combined.bak"
MergeFiles sourceFolder, filePattern, destinationFilePath
End Sub
六、常用的通配符
七、结论
文件合并功能在实际工作中非常有用，可以帮助我们高效地处理文件。希望这篇文章对大家有所帮助，如有疑问，欢迎在评论区留言交流，我们下期再见。
参考文章：
版权声明：本文为博主原创文章，如需转载，请给出：
原文链接：https://blog.csdn.net/qq_35844043/article/details/144983416