%
% get the list of all zips in a folder
%
% stack: zip-dir
%
"*.zip" exch "AscendF" false "Allz" File.DirOpen
{
 "Allz" File.DirNext isnull ?
"curzip" log)(
 dup retext exists
 {
  pop
 }
 {
%
% test formatted zip info extraction
%
% stack: cur-zip
%
  dup filename retext ^"c:\___Work\___Zipper\"
  second pathonly rot filename
%
% stack: out-file src-path zip-file
%
  System.Zip_
"ZipInfo" log)(
  pop
 } ifelse
} loop
pop
"Allz" File.DirClose