等Kill再继续？

Question

如果之前已解决此问题，我深表歉意，但我在网上搜索此答案时没有成功。

我们有一种情况，我们正在将本地文件同步到网络文件，如下面的虚拟化代码所示。例如，如果网络文件存在，则将其复制到本地驱动器。如果网络文件不存在，则将其从本地驱动器中删除。

我的问题是，我是否需要在 Kill 行和 Filecopy 行之间进行一些延迟/测试？到目前为止，测试还没有发现任何问题，但我仍然有点不确定这是否足够。

Sub copyFile()

Const SFile As String = "N:\Test.txt"
Const tFile As String = "C:\Test.txt"

On Error Resume Next

Kill tFile

On Error GoTo errTrap

FileCopy SFile, tFile
errTrap:
End Sub

Answer 1

我觉得你的代码不错，你可以添加错误处理程序，当 FileCopy 出错时。

Sub copyFile()

Const SFile As String = "N:\Test.txt"
Const tFile As String = "C:\Test.txt"

On Error Resume Next

Kill tFile

On Error GoTo errTrap

FileCopy SFile, tFile
exit sub

errTrap:
'do something when FileCopy Error

End Sub