Forums Scripts & Popups Help with /filter (sorting)

 
test {
  var %b = $sdir($left($mircdir,2), Please Select A Directory...) 
  if (!$isdir(%b)) { halt }
  .window -c @allfiles | .window -hl @allfiles | .window -c @filesctime | .window -lh @filesctime | .window -c @sorted | .window -l @sorted | var %q = $findfile(%b,*,0,@allfiles) 
  var %o = 1 | while (%o <= $line(@allfiles,0)) { aline @filesctime $file($shortfn($line(@allfiles,%o))).ctime | inc %o }
  filter -wwa @filesctime @sorted | .window -c @allfiles | .window -c @filesctime
}
 

alias test2 {
  var %b = $$sdir(\, Please Select A Directory...) 
  window -c @sorted | window -l @sorted
  .echo -q $findfile(%b,*,0,aline @sorted $file($1-).ctime) 
  filter -wwcut 1 32 @sorted @sorted
}