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.