在VB.NET中两个文本文件，一个文件中有多行文本。现要把文本文件中的内容写入另一文本文件中

    Dim str_File_1 As String = My.Computer.FileSystem.ReadAllText("c:\第一个文件", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件
        Dim str_File_2 As String = My.Computer.FileSystem.ReadAllText("c:\第二个文件", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件
        '下面是一次性写入
        My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_File_2, True, System.Text.Encoding.ASCII)
        '下面是一行一行写入
        Dim str_Sp() As String = str_File_2.Split(vbCrLf)
        For i = 0 To str_Sp.LongLength - 1
            My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_Sp(i) & vbCrLf, True, System.Text.Encoding.ASCII)
        Next