这是我图书管理系统的备份部分,就是将数据库复制到另一文件夹.
Set OBJFSO = CreateObject("scripting.filesystemobject") '创建一个文件对象 OBJFSO.copyfile Text1.Text, App.Path & "\dbbak\" & Date & ".mdb" MsgBox "数据库备份成功!", , "备份成功"