Hi
**********************************************
** Purpose ... ReIndex Tables in a directory
** Author .... Subramanian.G
** HowRun..... 1. Start FoxPro
** ... 2. SET DEFA toMyDataDirectory
** ... 3. DO REINDEX
*********************************************
SET EXCLUSIVE ON
LOCAL aFiles, nCount, I
DIMENSION aFiles(1,1)
nCount = ADIR(aFiles,"*.DBF"

=ASORT(aFiles,1)
I=1
FOR I = 1 TO nCount
WAIT WINDOW "Reindexing "+aFiles(I,1)+ ;
" ... Please wait" NOWAIT
SELECT 0
USE (aFiles(I,1))
REINDEX
USE
WAIT CLEAR
ENDFOR
SET EXCLUSIVE OFF
*********************************************
** (Not related.. but I am just putting the code
** for use of members)
** To pack files in the same way...
*********************************************
** Pack All Files
SET EXCLUSIVE ON
LOCAL aFiles, nCount, I
DIMENSION aFiles(1,1)
nCount = ADIR(aFiles,gcDataPath+"*.DBF"

=ASORT(aFiles,1)
I=1
FOR I = 1 TO nCount
WAIT WINDOW "Packing "+aFiles(I,1) ;
+" ... Please wait" NOWAIT
SELECT 0
USE (aFiles(I,1))
PACK
USE
WAIT CLEAR
ENDFOR
SET EXCLUSIVE OFF
*********************************************************
Hope this helps

ramani :-9
(Subramanian.G),FoxAcc, ramani_g@yahoo.com