求如何修改代码，定时备份后台数据库?

fnsmydyang

请教:
这是十段老师的一段代码:
模块:
Option Compare Database
Option Explicit
'复制文件引用
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
                                 (ByVal lpExistingFileName As String, _
                                  ByVal lpNewFileName As String, _
                                  ByVal bFailIfExists As Long) As Long
主窗体调用模块:
计时器间隔设置:1000
Private Sub Form_Timer()
'这里是按时备份,因为这个窗体是一定会打开的,
If Format(Now, "hh:ss") = "12:00" Then CopyFile CurrentProject.FullName, "D:\数据库备份" & "_" & Format(Now, "yyyymmddhhss") & ".mdb", 1
End Sub
十段老师的这段代码能备份(数据库与程序未分开)
现因我的程序与数据库是分开的,程序文件在"C"盘,数据库在公用"X"盘，要求定时备份的数据库存放在"E"盘"备份"文件夹内,在备份过程中出现正在备份的提示,备份完成后提示已备份完成,请教高手们以上代码该如何修改,谢谢!!

Henry D. Sy

try
FileCopy 语句
FileCopy source, destination

fnsmydyang

6D老师，我不是太懂，能说明白一点就好了,谢谢[:17]

Henry D. Sy

FileCopy语句 返回

复制一个文件。

语法

FileCopy source, destination

FileCopy 语句的语法含有以下这些命名参数：

部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。


说明

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

fnsmydyang

谢谢老师

Henry D. Sy

假设你要备份后台的文件跟前台是在同一个文件夹里，名字为a
你要备份到D盘
Private Sub Command0_Click()
    FileCopy CurrentProject.Path & "\a.mdb", "D:\a.mdb"
    MsgBox "Copied"
End Sub

changweiren

咱也学习一下

傲骨一根

好象出现了问题，正如版主所说，不能对自己进行备份，有什么办法吗？