Option Explicit Private Sub Command1_Click() Dim file_1,file_2 As String '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 file_1 = "f:123.txt" file_2 = "f:456.txt" Dim abc As String '所读取的文本<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的所有<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a> Dim xyz As String '在循环中存放每行的<a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a> Open file_1 For Input As #1 Open file_2 For Append As #2 Do While Not EOF(1) '循环直至<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>尾 Line Input #1,xyz '每次读取一行存放在xyz变量 abc = abc & xyz & vbCrLf 'vbCrLf=Chr(13) + Chr(10) 回车符+换行符 Loop Print abc '打印 Write #2,Now & vbCrLf & abc Close Name "f:123.txt" As "f:/123/789.txt" '<a href="https://www.jb51.cc/tag/xiugai/" target="_blank" class="keywords">修改</a>123.txt的路径和<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 End Sub