VB中如何让多个格式相同的文件连成一个文件并加序号

'这应该是文件的分割与合并问题
'任何格式的多个文件都可以合并为一个大文件,下面是我的例子
'首先，在窗体上添加控件：List1，Command1，Command2

Private Sub Form_Load()
Command1.Caption = "合并文件"
Command2.Caption = "抽取文件"
'将要合并的的文件添加到一个 List1 控件中
List1.AddItem "C:\My1.txt"
List1.AddItem "C:\My2.txt"
'......
End Sub

Private Sub Command1_Click()
'合并文件
Dim H As Long, F As String, I As Long, Info As String
Dim H1 As Long, F1 As String, B() As Byte, S As Long
Dim S1 As Long, nS As String

'用二进制方式打开一个文件，准备将多个文件写入其中
H = FreeFile
F = "C:\MyFile.txt" '合并后的大文件名，可任意取扩展名
If Dir(F) <> "" Then Kill F
Open F For Binary As #H

For I = 0 To List1.ListCount - 1
F1 = List1.List(I) '要合并的一个文件
S = FileLen(F1)
ReDim B(1 To S)