日期：2025年1月7日
作者：Commas
签名：(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释：如果您觉得有所帮助，帮忙点个赞，也可以关注我，我们一起成长；如果有不对的地方，还望各位大佬不吝赐教，谢谢^ - ^
1.01365 = 37.7834；0.99365 = 0.0255
1.02365 = 1377.4083；0.98365 = 0.0006
文章目录
- 一、前言
- 二、什么是文件二进制合并
- 三、应用场景
- 四、二进制合并的基本原理
- 五、功能实现与示例代码
- （1）功能封装
- （2）调用示例
- 六、常用的通配符
- 七、结论
一、前言
在上期文章中，我们探讨了《文件的二进制合并》技巧，本期我们将进一步深入，讲解《如何实现文件的二进制合并》，为整个文件处理流程画上一个圆满的句号。在日常工作场景中，文件拆分与合并是常见的操作需求，特别是在网络传输受限或数据备份恢复的场合。接下来，我们来了解下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 'FileSystemObjectDim folder As folderDim file As Object 'fileDim inStream As Object 'ADODB.StreamDim outStream As Object 'ADODB.StreamDim fileList As CollectionDim fileName As StringDim fileCount As LongDim i As Long' 创建 FileSystemObject 对象'Set fs = New FileSystemObjectSet fs = CreateObject("Scripting.FileSystemObject")' 检查目标文件夹是否存在If Not fs.FolderExists(sourceFolder) ThenMsgBox "源文件夹不存在: " & sourceFolder, vbExclamationExit SubEnd If' 获取文件夹对象Set folder = fs.GetFolder(sourceFolder)' 初始化集合来存储文件列表Set fileList = New Collection' 使用 FileSystemObject 的 GetFolder 和 GetFile 方法获取匹配的文件For Each file In folder.FilesDoEvents: DoEvents: DoEvents: DoEvents'Debug.Print file.Name, filePatternIf file.Name Like filePattern ThenfileList.Add fileEnd IfNext file' 检查是否有匹配的文件If fileList.Count = 0 ThenMsgBox "没有找到匹配的文件: " & filePattern, vbExclamationExit SubEnd If' 初始化输出流'Set outStream = New ADODB.StreamSet outStream = CreateObject("ADODB.Stream")outStream.Type = 1 'adTypeBinaryoutStream.Open'outStream.Mode = 3 'adModeReadWrite' 按顺序合并文件fileCount = fileList.CountFor i = 1 To fileCountfileName = fileList(i).Path' 打开输入流'Set inStream = New ADODB.StreamSet inStream = CreateObject("ADODB.Stream")inStream.Type = 1 'adTypeBinaryinStream.OpeninStream.LoadFromFile fileName' 读取文件内容并写入到输出流outStream.Write inStream.Read()' 关闭输入流inStream.CloseSet inStream = NothingNext i' 创建目标文件夹（如果不存在）Dim DestinationFolder As String, idx As Integeridx = InStrRev(DestinationFilePath, "\") - 1If idx > 0 Then DestinationFolder = Left(DestinationFilePath, idx)If Not fs.FolderExists(DestinationFolder) Thenfs.CreateFolder DestinationFolderEnd If' 保存合并后的文件outStream.SaveToFile DestinationFilePath, 2 'adSaveCreateOverWriteoutStream.CloseSet outStream = NothingMsgBox "文件合并完成，共合并 " & fileCount & " 个文件。", vbInformation
End Sub（2）调用示例
Private Sub btnMerge_Click()Dim sourceFolder As StringDim filePattern As StringDim destinationFilePath As StringsourceFolder = "C:\SourceFiles"filePattern = "*.bak"destinationFilePath = "C:\MergedFiles\Combined.bak"MergeFiles sourceFolder, filePattern, destinationFilePath
End Sub
六、常用的通配符
七、结论
文件合并功能在实际工作中非常有用，可以帮助我们高效地处理文件。希望这篇文章对大家有所帮助，如有疑问，欢迎在评论区留言交流，我们下期再见。
参考文章：
- 《Microsoft Docs - FileSystemObject》
- 《Microsoft Docs - ADODB.Stream》
版权声明：本文为博主原创文章，如需转载，请给出：
原文链接：https://blog.csdn.net/qq_35844043/article/details/144983416
