vb6将指定路径下的两个文本文件合成位一个新的文本文件

dim str as string
textbox1.MultiLine = true
Open pathname1 for input as #1
do while not EOF(1)
   str= input(1, #1)
   textbox1.text = textbox1.text & str
loop
close #1
Open pathname2 for input as #2
do while not EOF(1)
   str= input(1, #2)
   textbox1.text = textbox1.text & str
loop
close #2
Open pathname3 for output as #3
write textbox1.text
close #3
应该是这样吧