alias filestats { unset %filetotal %totalfilesize %lastfilessizeSMALL %lastfilessize %biggestfile %smallestfile | %starttime = $ctime | %lastfilessize = 1 | %lastfilessizeSMALL = 109951162777600 | var %filetotal, %d = $1-, %dir = $regsubex(%d,/%([0-9a-zA-Z]+)%/Sg,$sysvar(\t)), %totalfiles = $findfile(%dir,*,0,filestatsp $1-) | msg # Biggest File: %biggestfile | msg # Smallest File: %smallestfile | msg # Average filesize: $bytes($calc(%totalfilesize / %totalfiles)).suf \ $bytes(%totalfilesize).suf $+($chr(40),$bytes(%totalfilesize,b) bytes,$chr(41)) in $bytes(%totalfiles,b) files. Read in $duration($calc($ctime - %starttime),3) $+ . }

alias -l filestatsp {
  %sizeoffile = $lof($qt($1-))
  inc %filetotal
  inc %totalfilesize %sizeoffile
  ;echo -tag $iif($len($1-) > 100,$+($gettok($1-,1,92),\...\,$gettok($1-,$calc($numtok($1-,92) -1) $+ -,92)),$1-)
  if (%sizeoffile > %lastfilessize) { set %lastfilessize %sizeoffile | set %biggestfile $+(%filetotal,:) $iif($len($1-) > 100,$+($gettok($1-,1-2,92),\...\,$gettok($1-,$numtok($1-,92),92)),$1-) -> $bytes(%sizeoffile).suf }
  if (%sizeoffile < %lastfilessizeSMALL) { set %lastfilessizeSMALL %sizeoffile | set %smallestfile $+(%filetotal,:) $iif($len($1-) > 100,$+($gettok($1-,1-2,92),\...\,$gettok($1-,$numtok($1-,92),92)),$1-) -> $bytes(%sizeoffile).suf }
}