VB 编写一个能将任意两个文件的内容合并的程序
时间: 2023-06-27 14:06:47 浏览: 70
以下是一个基本的VB代码示例,它将两个文件合并为一个:
```
Private Sub MergeFiles(ByVal filePath1 As String, ByVal filePath2 As String, ByVal mergedFilePath As String)
Dim file1 As New System.IO.StreamReader(filePath1)
Dim file2 As New System.IO.StreamReader(filePath2)
Dim mergedFile As New System.IO.StreamWriter(mergedFilePath)
' 将第一个文件的内容写入合并文件
While Not file1.EndOfStream
Dim line As String = file1.ReadLine()
mergedFile.WriteLine(line)
End While
' 将第二个文件的内容写入合并文件
While Not file2.EndOfStream
Dim line As String = file2.ReadLine()
mergedFile.WriteLine(line)
End While
file1.Close()
file2.Close()
mergedFile.Close()
End Sub
```
在调用该函数时,您需要提供三个参数:
1. 第一个文件的路径
2. 第二个文件的路径
3. 合并文件的路径
例如,您可以这样调用该函数:
```
MergeFiles("C:\file1.txt", "C:\file2.txt", "C:\merged.txt")
```
请注意,上述代码示例仅适用于文本文件。如果您需要合并其他类型的文件,例如图像或视频文件,您需要使用不同的方法。