[求助]备份后台数据库的问题

zyz218

Private Sub Form_Unload(Cancel As Integer)
Dim a, b As String
    '建立目录
    If IsNull("C:\Windows\Backup\") Then
        MkDir "C:\Windows\Backup\"
    End If
    '备份后台数据库
    a = Format(Date, "yymmdd") '获取机器日期并格式化为******的格式
    b = "C:\Windows\Backup\" & a & ".mdb"  '指定拷贝目录
    FileCopy CurrentProject.Path & "\hrdata.mdb", b '拷贝文件的路径
End Sub

因为hrdata.mdb在备份时处于被打开状态，所以无法备份，不知怎样解决这个问题？？

tmtony

好像,即使打开,也应该可以复制,只是不能对原文件压缩吧.
也可检测同名ldb有否存在,如果存在,则提示正在使用