lparam tcDir, lcFileName *Make sure we have a directory to loop through if type('tcDir') <> 'C' or not directory(tcDir) return endif *Set up the variables we'll need local lnFiles, laFiles[1], lnI, lcDir lcDir = iif(tcDir = "\" or ":" $ tcDir, ; addbs(tcDir), fullpath(addbs(tcDir))) wait window nowait lcDir *Loop through every file and driectory lnFiles = adir(laFiles, lcDir + '*', 'D') for lnI = 1 to lnFiles do case *Ignore these two case inlist(laFiles[lnI, 1], '.', '..') loop *Recurse for every directory case 'D' $ laFiles[lnI, 5] findfile(lcDir + laFiles[lnI, 1], lcFileName) otherwise lnTotalFiles = lnTotalFiles + 1 if laFiles[lnI, 1] = upper(lcFileName) lnFoundFiles = lnFoundFiles + 1 endif endcase endfor