Close Databases All >Open Database yourdatabase Shared >Cd (JustPath(DBC())) >Select objectid From DBC() ; > where objecttype="Table" ; > and !File(ForceExt(Alltrim(objectname),"dbf")) ; > into Cursor cuNotFound >Delete From DBC() ; > where objectid In (Select objectid From cuNotFound) ; > or parentid In (Select objectid From cuNotFound) >** and if you get exclusive access... >Close Databases All >Open Database yourdatabase Exclusive >Pack Data >Might have to go with this, thanks a lot for the sample!