第2个回答 2011-06-17
Dim s As String, a As String
a = "D:\A.mdb" '定义目标mdb路径
s = Dir(a, vbSystem + vbHidden) '具体路径你自己换哈
If s = "" Then '目标文件不存在就直接复制
FileCopy App.Path & "\A.mdb", a
Else '若存在则删除后再复制
Kill a '先删除久的文件
FileCopy App.Path & "\A.mdb", a '再复制
End If