Compactar arquivo XML

Pessoal, estou precisando varrer os arquivos de xml do diretorio NFe e ler em cada um dos arq.xml p identificar uma determinada informação e depois disso em cada xml identificado, juntar todos e gerar um zip. Ler o xml já vi que tem varios exemplos mas como varrer um diretorio e compactar os arquivos ao final é que está minha dificuldade. Desde já obrigado a todos!

em progress não sei, mas um script como este (para windows somente) poderia funcionar:

Código:

for /f %i in ('FINDSTR /C:"string procurada" /M c:\arquivos\*.xml') do zip -q c:\arquivos\xml.zip %i

Se instalar o 7-Zip pode usar os parâmetros que o programa tem para gerar o ficheiro zip.

desenvolvi uma rotina que faz isso,,entre em contato que te envio
Marcos Patricio sanfelice
marcospsa@armco.com.br

Para varrer um diretório e seus subdiretórios:

Código:

def var varq         as char extent 3.
def var vdiretorio   as char.
def var lsubdir      as log.

update
   vdiretorio format "X(50)"
   lsubdir.

run LerDir(vdiretorio).

procedure LerDir:
   
   def input parameter idir as char.
   input from os-dir( idir ).
      repeat:
         import varq.
         if varq[1] begins "." then
            next.
         disp 
            varq[2] format "X(60)"
            with frame a down no-label.
         down with frame a.
         
         if varq[3] begins "D"
         and lsubdir = yes then
            run LerDir(varq[2]).
         
      end.
   input close.
   
end.