[vb6] compattare file mdb

[Toeke]

Public Function CompattaDB(ByVal PathDBName As String) As boolean
    
  Dim m_Jro                       As New JRO.JetEngine
  Dim m_Fso                       As Object
  Dim DB_Dest                     As String
    
CompattaDB=false
  On Error GoTo ERR_COMPATTADB
  Set m_Fso = CreateObject("Scripting.FileSystemObject")

    ' Database di appoggio
    DB_Dest = Mid(PathDBName, 1, Len(PathDBName) - 4) & "_new.mdb"
      
      ' Compatto il database specificando nuovo e vecchio db
    m_Jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathDBName, _
                          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Dest & " ;Jet OLEDB:Engine Type=5"
      
    m_Fso.DeleteFile PathDBName, True
    m_Fso.CopyFile DB_Dest, PathDBName, True
    m_Fso.DeleteFile DB_Dest, True
      
  End If
    
  CompattaDB=true
  Exit Function

ERR_COMPATTADB:
  CompattaDB=false

End Function