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