* Assuming default dir is where testdata and its tables are lcOldDBC = "testdata" lcNewDBC = "myTestData" RenDbc(m.lcOldDBC,m.lcNewDBC) Function RenDbc lparameters OldName, NewName Open data (oldName) lnTables=adbobject(arrTables,'TABLE') For ix=1 to lnTables lcTable = arrTables[ix]+'.DBF' handle=fopen(lcTable,12) =fseek(handle,8,0) lnLowByte = asc(fread(handle,1)) lnHighByte = asc(fread(handle,1))*256 lnBackLinkstart = lnHighByte + lnLowByte - 263 =fseek(handle,lnBackLinkstart,0) Fwrite(handle,forceext(newName,'dbc')+replicate(chr(0),263),263) =fclose(handle) Endfor Close data all Rename (forceext(oldName,'dbc')) to (forceext(newName,'dbc')) Rename (forceext(oldName,'dcx')) to (forceext(newName,'dcx')) Rename (forceext(oldName,'dct')) to (forceext(newName,'dct'))Cetin