try
use xfile inde xfile
catch to xerr
if xerr.errorno=114
messagebox("Index damaged")
erase xfile.cdx
on erro *
use xfile
index on xxxx tag xxxx
use
on erro
finally
endt
endpr


note: sometimes vfp not gives any error about index corrupts. in this case only users detect (appended records don't seem etc...). sorry...