ファイル結合

http://sya555.blog118.fc2.com/blog-entry-631.html

Sub FileAdd(ByRef File1 As String, ByRef File2 As String)
  System.IO.File.AppendAllText(
    File1, 
    System.IO.File.ReadAllText(
      File2, 
      System.Text.Encoding.GetEncoding("shift-jis")),  
    System.Text.Encoding.GetEncoding("shift-jis"))
End Sub