After running the following code, the iePoint.dbc is apparently still "open" in the file system even though VFP says it is not. Subsequent attempts to ZIP up iePoint.dbc with another VFP routine give a read error.

Any ideas as to what it going on?

parameters thisfolder

set default to (thisfolder)

open database iepoint excl
oMeta = newobject('DBCXMgr', 'DBCXMGR.VCX')

oMeta.SetDatabase(dbc())

IF oMeta.oSDTMgr.NeedUpdate('ALL')
oMeta.oSDTMgr.Update('ALL')
ENDIF

oMeta.oSDTMgr.Reindex('ALL',.T.,.t.)
oMeta.oSDTMgr.Reindex('!ALL', .T.,.t.)

set database to iepoint
pack database
close database all
flush

set default to START_UP_PATH

return "OK"