[求助]备份后台数据

zyz218

无论谁打开数据库，关闭时都以当天日期为文件名备一次，预期目标如下：
每次关闭数据时备份后台
首先判断C盘WINDOWS下有没有BACKUP这个文件夹，没有则建之
其次判断BACKUP下是不是已有了当天日期为文件名的文件，有则删除，没有跳过
最后备份后台（服务器中的）到本地C盘WINDOWS下BACKUP这个文件夹中

[ 本帖最后由 zyz218 于 2007-10-25 17:06 编辑 ]

liwen

dir()
filecopy()

zyz218

能不能具体点？
filecopy只备份文件，现在是要指定路径？？？！！

wanshan

建议另外弄一个备份工具，定时自动备份后台数据库，可参考：http://www.wanshan.net/AutoBak/index.asp
如果需要实现打开或退出时自动备份，可参考：http://www.wanshan.net/mdbshell/index.asp，里面有个功能就是退出是自动备份。

liwen

filecopy是能够指定路径的，但如果后果数据库可能会处于使用状态，可能要用API的copyfile

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

    If Dir(filepath) = "" Then MkDir (filepath)
if dir(filepath-filename)="" then

andymark

Public Function BackEndData() As Boolean
Dim StrDesPath As String
Dim StrSourcePath As String
Dim StrDesName As String
Dim StrSourceName As String
StrSourceName = "Data.mdb"
StrSourcePath = CurrentProject.Path & "\Data\" & StrSourceName
StrDesName = Format(Now, "yymmdd") & "data.mdb"
StrDesPath = CurrentProject.Path & "\Bak\" & StrDesName
  If Dir(StrDesPath) <> "" Then
      Kill StrDesPath
   End If
FileCopy StrSourcePath, StrDesPath
   
End Function

zyz218

错误提示：“权限不允许！”