不一般的access数据库备份？

Question

Private Sub BackUpDatabase()
Dim strBackUpPath As String
Dim intBackUpFiles As Integer
Dim strDBFileName As String
Dim i As Integer
    
    Screen.MousePointer = 11
    
    strBackUpPath = "d:\backup\"
    intBackUpFiles = 5    
    strDBFileName = "袁飞库"           '数据库文件名(不包括路径与扩展名)
    
    For i = intBackUpFiles To 2 Step -1
        name (strBackUpPath & strDBFileName & "." & i - 1 & ".bak") as (strBackUpPath & strDBFileName & "." & i & ".bak")
    Next
   fileCopy "袁飞库.mdb", strBackUpPath & strDBFileName & ".1.bak"    Screen.MousePointer = vbDefault
End Sub

Answer 1

很简单，每次启动时把文件直接拷贝到一个备份目录下，如果这个目录下已经有5个备份文件了，就比较它们的生成时间，删除一个日期最早的就可以了。