在多次复制文件时,如何防止同名覆盖

如题所述

只要有同名的文件,系统都会弹出提示并询问是否覆盖。你只要选择你要的结果就可以了
如果点否,会自动在文件名后加(1),(2)之类以区分。
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-06-16
我用VB的API制作的A.mdb文件复制的程序,执行时,如果目标文件夹没有A.mdbDim s As String, a As String a =
第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
第3个回答  2011-06-16
多做备份。
相似回答