'你首先得知道要备份文件的位置。假设c:\111.accdb需要备份到c:\111\下 Dim strPathx as string = "c:\111.accdb" Dim strPathy as string = "c:\111\111.accdb"
'首先你肯定得判断c:\111.accdb文件是否存在 if dir(strPathx) 0 then FileCopy strPathx, strPathy end if 这就是个vb标准文件拷贝处理.同样也可用于数据库备份。 还原就把两个参数颠倒即可。不过要注意处理过程中文件不能被占用。否则会出现异常。