home *** CD-ROM | disk | FTP | other *** search
- .K PAT,OF,OF1,OF2,OF3,OF4
- .BRA {
- .KET }
- ;; FILECOUNT -- Counts files with names matching a given pattern.
-
- if "{OF}" EQ ""
- MAT FILES "" {PAT$#?} LABEL "^N files found"
- else
- MAT {PAT} T "" FILES {OF$#?} {OF1} {OF2} {OF3} {OF4} LABEL "^I files found out of ^N"
- endif
-
- ;; note the use of a null template to circumvent the normal requirement
- ;; for one in FILES mode.
-
-