3 stars Sergey. The following code worked.

IF DBUsed(JustStem(tcDBCName))
SET DATABASE TO (tcDBCName)
CLOSE DATABASES
ENDIF
DELETE FILE ForceExt(tcDBCName,'DBC') && Error ocurrs because file is in use
DELETE FILE ForceExt(tcDBCName,'DCT')
DELETE FILE ForceExt(tcDBCName,'DCX')

Thanks. Alex

>Hi Alex,
>
>Try to specify full DBC name in SET DATABASE TO.