[VB6] Fondere 2 file TXT tra loro...

[GoldEmish]

Ciao, la mia domanda è semplice...
saprei farlo, ma probabilmente il modo che userei io è troppo lungo.
Volevo sapere se c'è un modo facile per prendere 2 file TXT diciamo "antonio.txt" e "arturo.txt" e creare un file unico "armando.txt" dove ci sia:

> il contenuto di antonio.
> una stringa del programma.
> il contenuto di arturo.

E' possibile senza leggere una riga per volta i due file?
Grazie

[xegallo]

aprili in binario e leggi tutto il contenuto

dim stemp as string
open "Armando.txt" for binary as #1
   open "Antonio.txt" for binary as #2
      stemp = space(lof(2))
      get #2 , , stemp
   close #2
   put #1 ,, stemp & vbcrlf
   put #1 ,, "stringa da programma" & vbcrlf
   open "Arturo.txt" for binary as #2
      stemp = space(lof(2))
      get #2 , , stemp
   close #2
   put #1 ,, stemp 
close #1