FoxPro/Visual FoxPro - Problemas con los indices.....

Hola amigos.

Necesito crear una aplicacion para que me genere los indices si estos se han corrompido ya que el REINDEX no siempre es seguro, entiendo que es mejor borrar los indices y volver a crearlos pero no tengo claro como es esto.

todos los comentarios seran bien recividos.

saludos.

mira yo lo trabajo de la siguiente manera, creo un from para manteni miento de tablas y en la rutina de salir y entrar del programa pongo la mistma rutina de tal modo que cada que el usuario ingrese o salga del sistema el mantenimiento de tablas se haga automatico
no utilices el reindex, en la rutina borra los idx con el DELETE y vuelve a generarlos de nuevo,
mo se si sera lo mejor pero a mi me funciona
chao

Solo necesitas un programa que podrías llamar INDEXAR.PRG

El contenido de dicho programa será el siguiente:
-----------------------------------------------------------------------
CLOSE ALL
&& deberás abrir las tablas en modo EXCLUSIVO
SET EXCLU ON
&& Tambien deberás evitar el mensaje "Archivo ya Existe, Sobreescibirlo?"
SET SAFETY OFF

SELE 1
&& debes realizar esto por cada tabla que quieras indexar

&& borra el archivo corrompido
DELETE FILE 'ALUMNOS.CDX'
&& abre la tabla e indexa
USE ALUMNOS.DBF
INDEX ON CLAVE TAG CLAVE
INDEX ON alltr(Ap_1)+' '+alltr(AP_2)+' '+alltr(nombre) tag ap_x
&& etcétera, tú escoges los índices.....

&& continúa con la siguiente tabla..

&& al final deberas cerrar todas las tablas
CLOSE ALL
&& y regresar las variables de entorno a su posicion original, por ejemplo:
SET EXCLU OFF
SET SAFETY ON

Gracias por la colaboracion

saludos..