Code to make sure there is no.ldb file

[marathonlady]

I have the code to compact a database, but what is the code to see if the database is in use?

Thanks in advance.

 

[ghudson]

Externally...

    If Dir("X:\YourDatabase.ldb") <> "" Then
        MsgBox "The #$%^&* database is still open!", vbCritical, "Compact Error"
        Exit Sub
    Else
        MsgBox "All clear, compact away."
    End If