如何实现文本文件合并?

haitai

在VBA 中如何实现两个文件的合并,如A盘中有AA.TXT ,BB.TXT 两个文件,请问如何实现AA.TXT 中的内容追加到BB.TXT中,本人采有如下代码出借不能实现.BB.TXT 还是原内容.

    Dim stAppName As String
   stAppName = "type a:\aa.txt >>a:\bb.txt"
   Call Shell(stAppName, 1)

请问该如何代码实现?谢谢