VB 代码示例：合并两个文本文件

以下是用 VB 编写的程序，可以将磁盘上的两个文本文件合并到第一个文本文件中：

Dim file1 As String '第一个文件的路径
Dim file2 As String '第二个文件的路径
Dim file3 As String '合并后的文件的路径

file1 = 'C:\file1.txt'
file2 = 'C:\file2.txt'
file3 = 'C:\file3.txt'

Dim fso As Object '文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

Dim file1Obj As Object '第一个文件对象
Set file1Obj = fso.OpenTextFile(file1, 1)

Dim file2Obj As Object '第二个文件对象
Set file2Obj = fso.OpenTextFile(file2, 1)

Dim file3Obj As Object '合并后的文件对象
Set file3Obj = fso.CreateTextFile(file3)

Dim line As String '读取的每一行

'将第一个文件的内容写入合并后的文件中
Do While Not file1Obj.AtEndOfStream
    line = file1Obj.ReadLine
    file3Obj.WriteLine line
Loop

'将第二个文件的内容写入合并后的文件中
Do While Not file2Obj.AtEndOfStream
    line = file2Obj.ReadLine
    file3Obj.WriteLine line
Loop

'关闭所有文件对象
file1Obj.Close
file2Obj.Close
file3Obj.Close

Set file1Obj = Nothing
Set file2Obj = Nothing
Set file3Obj = Nothing

Set fso = Nothing

MsgBox "文件合并完成。"

在上面的代码中，我们使用了 VB 中的文件系统对象（FileSystemObject）来打开、读取、写入和创建文本文件。我们首先指定三个文件的路径，然后使用 FileSystemObject 打开第一个和第二个文件，并创建一个新的文件作为合并后的文件。

我们使用一个循环来读取第一个和第二个文件的每一行，并将它们写入合并后的文件中。最后，我们关闭所有文件对象并显示一个消息框来告诉用户文件已经合并完成。

请注意，您需要将上面的代码中的文件路径替换为您自己的文件路径。此外，您还需要将代码保存为一个 VB 项目，并使用 Visual Studio 或其他 VB IDE 编译和执行它。