Question

用vb编写一个将文件夹里的文件复制到指定文件夹并将目标文件夹里的文件进行覆盖

帮我看看看下面这段程序
Private Sub Command1_Click()
Dim fs
If Dir("E:\汪超\学习\chenxu") <> " " Then
Kill ("E:\汪超\学习\chenxu")
End If
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "E:\汪超\chaxun", "E:\汪超\学习\chenxu"
End Sub
我执行到kill这条的时候会出现无法找到文件

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Private Sub Form_Load()
If Dir("D:\bbb\111.text") <> "" Then
Kill ("D:\bbb\111.text")
End If
FileCopy "C:\aaa\111.text", "D:\bbb\111.text"
End Sub

追问

你好，执行到FileCopy "C:\aaa\111.text", "D:\bbb\111.text"，这句会出现路径访问错误，怎么办，我的目标文件里有文件，我要完全覆盖他