CLOSE ALL CLOSE DATABASE OPEN DATABASE(sys(5)+alltrim(sys(2003)))+'\TABLES\weight' EXCLUSIVE LOCAL LATABLES[1],; I CLOSE TABLES FOR I=1 TO ADBOBJECTS(LATABLES,'TABLE') IF !EMPTY (LATABLES[I]) IF !USED (LATABLES[I]) USE (LATABLES[I]) IN 0 EXCL SELECT (LATABLES[I]) WAIT WINDOW 'Reindexing:' + ALLTRIM('-'); + UPPER(ALLTRIM(LATABLES[I]))+'.DBF' TIMEOUT 3 REINDEX ENDIF ENDIF ENDFOR MESSAGEBOX('DONE',48,"Message")Wish you good luck