大家来看看这段代码有什么问题，先谢了

Private Sub Command1_Click()
Dim aa, bb As String
aa = ""
bb = ""
Open App.Path & "\1.txt" For Binary As #1
Do While Not EOF(1) ' 循环至文件尾。
bb = Input(1, #1) ' 读入一个字符。
aa = aa + bb
Loop
Debug.Print aa ' 显示到立即窗口。
Close #1
On Error Resume Next
Kill App.Path & "\2.txt"
Open App.Path & "\2.txt" For Binary As #2
Put #2, , aa
Close
End Sub
1.txt和2.txt的内容不一样，这段代码应该怎样修改才使两个文件一样，我的目的不是复制文件。

大家来看一下这段代码有什么问题？（关于对数据库操作的） 大家来看看这段蓝屏代码 ？？ 看这段代码有什么问题?? 请大家来看看我的asp代码那里有问题?为什么不能修改? asp查询问题来看看这段代码 关于代码修改我注册表的问题，大家来看看！ 大家来看看我有什么问题啊！ 眼神问题知识，有什么详解吗，大家来看看！！ 大家来看看这个配置单有什么问题 大家来看我的操作过程有什么问题没