lcFileName = SYS(2000, ADDBS(lcDir) + "*.*") lnCount = 0 DO WHILE NOT EMPTY(lcFileName) lnCount = lnCount + 1 lcFileName = SYS(2000,"", 1) ENDDO ? lnCount