home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk374.lzh / Mat / FILECOUNT < prev    next >
Text File  |  1990-10-08  |  375b  |  15 lines
  1. .K PAT,OF,OF1,OF2,OF3,OF4
  2. .BRA {
  3. .KET }
  4. ;;    FILECOUNT --  Counts files with names matching a given pattern.
  5.  
  6. if "{OF}" EQ ""
  7.    MAT FILES "" {PAT$#?} LABEL "^N files found"
  8. else
  9.    MAT {PAT} T "" FILES {OF$#?} {OF1} {OF2} {OF3} {OF4} LABEL "^I files found out of ^N"
  10. endif
  11.  
  12. ;; note the use of a null template to circumvent the normal requirement
  13. ;; for one in FILES mode.
  14.  
  15.