Question

如果之前已经解决了这个问题，我很抱歉，但我在网上搜索这个答案却没有成功。

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

我的问题是，我需要在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

在继续之前等待杀戮？

1 个答案: