Cita:
Iniciado por pcarvajal
hace 2 años que ando buscando respuesta a compacatrla en la web y aún no la encuentro

Jejejeje
Los únicos códigos que encontré que no hagan uso del filesystemobject son estos:
Código:
Set Engine = CreateObject("DAO.DBEngine.35")
Engine.CompactDatabase "path\database.mdb", "path\compacted_database.mdb"
y
Código:
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\database.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path\compacted_database.mdb"
(
fuente)
Pero fijate que
mdb origen y
mdb destino usan nombres de base de datos diferentes. No sé que pasará si tanto
mdb origen y
mdb destino se llaman de la misma manera. Probalo (con un respaldo de la BD, por favor) y comentame!