要求：将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就可以了。

运行后，new.txt中没有old.txt文件中的内容，请帮忙修改，使符合要求。谢谢！！

因为你写了文件后，文件2没有关闭，使用方法按楼上的。

既然open,就要close.

太幽默了,楼主先是问,然后开始自己回答

,楼三就什么都不看就答上去,还说方法如楼上的...


笑.... 能不能都不要这么幽默呢...

直接copyfile & kill 不就行了，顶多加上点错误处理。

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
    Reset
    Kill "e:\old.txt"
End Sub

不如直接更改文件名，^_^

这个不错，读取和写入文本文件

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,#2
    Kill "e:\old.txt"
End Sub