备份: On Error Resume Next Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = FO_COPY SHFileOp.pFrom = App.Path & "\msDATAformobile.mdb" SHFileOp.pTo = App.Path & "\back\msDATAformobile.mdb" SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR Call SHFileOperation(SHFileOp) MsgBox "备份已完成!" Exit SubErrHandler: Me.MousePointer = 0
'Public Const FOF_ALLOWUNDO = &H40Public Const FO_MOVE = &H1 Public Const FO_COPY = &H2 Public Const FO_DELETE = &H3 Public Const FOF_NOCONFIRMATION = &H10 Public Const FOF_NOCONFIRMMKDIR = &H200 Public Const FOF_ALLOWUNDO = &H40 Public Const FOF_SILENT = &H4 Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long '----------------------------
对victorycyz(中海) :你觉得什么有意义,是觉得自己怒强吗?KAO!
如果记录太多的话,还是选用别的大型数据库吧。
Access有个几十兆的话就不太好了。
On Error Resume Next Dim SHFileOp As SHFILEOPSTRUCT SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = App.Path & "\msDATAformobile.mdb"
SHFileOp.pTo = App.Path & "\back\msDATAformobile.mdb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
MsgBox "备份已完成!"
Exit SubErrHandler:
Me.MousePointer = 0
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_SILENT = &H4
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'----------------------------