lcTable = "mytable" >lcPath = "C:\mypath\" > >lnFH = FOPEN(lcPath + lcTable + ".dbf", 12) > >* Check if there is structural CDX >= FSEEK(lnFH,28) > >lnByte28 = ASC(FREAD(lnFH,1)) >lnCDXStr = BITAND(lnByte28, 1) > >IF lnCDXStr = 1 && there is CDX > IF FILE(lcPath + lcTable + ".cdx") > ERASE (lcPath + lcTable + ".cdx") > ENDIF > = FSEEK(lnFH,28) > = FWRITE(lnFH, Chr( BITAND(lnByte28, 0xFE) )) >ENDIF > >= FCLOSE(lnFH) >Sorry, I got distracted by something and sent message before it was ready.