Option Explicit '//*********************************************************************** '//类模块名称:ClsCompactDatabase '//版权所有:米特仪表有限公司 版权所有 '//开发作者:段利庆(Lee) '// QQ:14035344 '// http://www.duanliqing.kudo.cn '// http://leek.woku.com '//创建日期:2010-07-28 '//功能描述:处理数据库文件备份 '// 备注:引用 Microsoft Jet and Replication Objects X.X library,其中 ( X.X 大于或等于 2.1 )。 '//*********************************************************************** '*系统临时文件夹路径 Private Declare Function GetTempPath Lib "kernel32" Alias _ "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Sub ErrMessage(ByVal Procedure As String, _ Optional ByVal AffErrMsg As String) '' ==================