[求助]压缩和修复功能 怎么用程序写？？

huaguofen

如题，怎么用程序来写出该功能?

jilijun

Dim strProveder As String
Dim strOldPathName As String, strNewPathName As String
Dim strOldConn As String, strNewConn As String
Dim strJetDp As String
Dim JRO As New JRO.JetEngine
strProveder = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strOldPathName = ThisWorkbook.Path & "\data.mdb"
strNewPathName = ThisWorkbook.Path & "\back.mdb"
strJetDp = ";Jet OLEDB:Database Password=123"
strOldConn = strProveder & strOldPathName & strJetDp
strNewConn = strProveder & strNewPathName & ";Jet OLEDB:Encrypt Database=True" & strJetDp
If Dir(strNewPathName) <> "" Then Kill strNewPathName
JRO.CompactDatabase strOldConn, strNewConn
Set JRO = Nothing
'Kill strOldPathName
'Name strNewPathName As strOldPathName