>>set century on >> >>lcfullpath = fullpath(curdir()) >>lcfullpath = left(lcfullpath, len(lcfullpath) - 1) >>lclastfolder = justfname(lcfullpath) >> >>abc=alltrim("E:\SoftBkup\"+lclastfolder+alltrim("\")+alltrim("Xls")+alltrim("\")) >>ab4=alltrim(abc)+alltrim(dtos(date())) >> >>mdbcname=(sys(5)+alltrim(sys(2003)))+'\TABLES\ACWS.dbc' >>#define crlf chr(13)+chr(10) >> >>close all >>close data >>open database (mdbcname) excl >>= adbobjects(latablearray, "TABLE") && Put table names into an array >>for i=1 to alen(latablearray) && loop through each table in the array >> mtablename=latablearray(i) && pick up table name from array >> >> x=0 >> on error x=error() >> use (mtablename) in 0 && attempt to open table >> on error >> >> if x=0 && Possible table corruption >> copy to type xl5 >> endif >>next x >>>>