>Dear Experts
>
>workdir=getdir()
>
>data1.dbc and all dbf's are located in workdir,
>How to findout corrupted dbf's.
>The name of all corrupted dbf's must store in a c:\corrupt.txt.
>
>Please help

Here's a simple way...

lcBadFiles = ""
on error llBadFile = .t.
lnDBFs = adir( laDBFs, "*.dbf" )
for lnI = 1 to lnDBFs
  llBadFile = .f.
  use ( laDBFs[ lnI, 1 ] )
  if llBadFile
    lcBadFiles = lcBadFiles + laDbfs[ lnI, 1] + chr(13)+chr(10)
  endif 

endfor 

strtofile( lcBadFiles, "c:\corrupt.txt" )
on error