Hi, this works for me when a table is corrupted

Function REPARAR(TABLA)
Local LPATH,TTEMPO,RETO,ANTVALOR
ANTVALOR=Set("TableValidate")
RETO=.F.
LPATH=Getenv("TEMP")
TTEMPO=Addbs(LPATH)+Justfname(TABLA)
If HAGO_COPIA(TABLA,.F.)   && backup original table with DBFnnn extension

	Set TABLEVALIDATE To 0    && not fails when table is corrupted
	Try
		Use (TABLA) Alias reparada Exclusive In 0
		Select reparada
		Copy To (TTEMPO)    && copy correct records 
		Zap
		Append From (TTEMPO)
		Delete File (TTEMPO)
		Use
		RETO=.T.
	Catch To PROBLEMA
	Endtry
Endif
Set TABLEVALIDATE To ANTVALOR    
Return RETO

>Hi All,
>
>Can someone recommend a good table repair utility?
>
>Luke