要求：将E盘根目录下的一个文本文件old.txt复制到新文件new.txt中，并利用文件操作语句将old.txt文件从磁盘上删除。
我编程如下：
Private Sub Command1_Click()
    Dim str1 As String
    Open "e:\old.txt" For Input As #1
    Open "e:\new.txt" For Output As #2
    Do While Not EOF(1)
        Line Input #1, str1
        Print #2, str1
    Loop
    Close #1
    Kill "e:\old.txt"
End Sub
运行后，new.txt中没有old.txt文件中的内容，请帮忙修改，使符合要求。谢谢！！

经本人调试，发现只要将close #1改成close #1,#2就可以了。