>lcBadFiles = "" >on error llBadFile = .t. >lnFiles = adir( laFiles, "SubDirectory\*.dbf" ) >for lnI = 1 to lnFiles > llBadFile = .f. && always reset flag before testing next file > use ( "SubDirectory\" + laFiles[ lnI, 1] ) > if llBadFile > lcBadFiles = lcBadFiles + laFiles[ lnI, 1] + chr(13)+chr(10) > endif >endfor > >if not empty( lcBadFiles ) > messagebox( "Some Bad Files: " + lcBadFiles ) >endif >on error >