LOCAL lnI, laDbfs[1]

CREATE CURSOR badTables ;
( ;
    cName     c(40), ;
    cMessage  c(200) ;
)

SELECT 0
ADIR(laDbfs, "*.DBF")

ON ERROR INSERT INTO badTables VALUES(laDbfs[lnI,1], MESSAGE())
FOR lnI = 1 TO ALEN(laDbfs,1)
    USE (laDbfs[lnI,1])
NEXT
ON ERROR

SELECT badTables
GOTO TOP
BROWSE NOWAIT
CANCEL