'比如把2合并到1Private Sub Command1_Click()Dim s$, strTxt$'读取文本Open App.Path & "\2.txt" For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
s = s & strTxt & vbCrLf
Loop
Close #1'输出文本Open App.Path & "\1.txt" For Append As #1
Print #1, s; C...
