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")