标题: Access 2010 怎么自动备份 [打印本页] 作者: matairangi 时间: 2010-8-25 08:31 标题: Access 2010 怎么自动备份 制作了一个窗体，上面有一个备份的按钮，点击就可以对Access进行备份，写了下面的代码来实现，可是出现提示说“用户定义类型未定义”，错误的行数指向红色的代码处。不知道怎么弄才行了，用的是2010Access。请各位指教...谢谢了
Public Function BackupDatabaseToFolder(ByVal strDBName As String, ByVal strDBPath As String) As Boolean
'**************************************************************************'
' Function BackupDatabaseToFolder() 函数用途为备份数据库文件
'**************************************************************************'
Dim objFile As New FileSystemObject
If Trim(strDBName) = "" Then
BackupDatabaseToFolder = False
End If
On Error Resume Next
objFile.CopyFile Trim(strDBPath) & strDBName, "E:\" & strDBName
If Err.number = 0 Then
BackupDatabaseToFolder = True
Else
BackupDatabaseToFolder = False
End If
On Error GoTo 0
End Function 作者: tmtony 时间: 2010-8-25 10:22
您需要先引用filesystem对象才可以