Dear Sir,

All is working fine with your modified procedure.
Now I want to display all corrupted dbf names into single messagebox.
For this I modified your codes as follows.

if x<>0 && Possible table corruption
	local lnhandle,ix,lcStr
	do case
   	case "corrupt"$message()
             lcStr = "Table "+m.table+" is corrupt!"
	case "does not exist"$message()
             lcStr = "Table "+m.table+" does not exist"
	case x=1705 or "cannot access" $ message()   
             lcStr = Cannot access table "+m.table
	otherwise
             lcStr = Cannot access table "+m.table+": "+message()+"!"
	endcase
        STRTOFILE(lcStr+CRLF, [c:\BadDBF.TXT], 1) 
        MESSAGEBOX(lcStr+CRLF) && I wrote this line
   *     CLOSE ALL
    *    quit
endif

But it shows error messages equal to number of corrupted dbf files.
An other question if above procedure find any corrupted or not existes dbf then exe file must quit.

Please help again