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
{{category2 プログラミング言語,VisualStudio}}