Generar Archivos ZIP en VB6.0

[cero_kill_byte]

Holas a Tod@s, gracias por su tiempo para leer estas líneas.

Les cuento que encontré un pequeño y relativamente fácil y entretenido código en VB6 para generar archivos ZIP.
( http://www.elguille.info/colabora/vb/zip32dll.htm )

El problema que tengo es que ese ejemplo esta para comprimir sólo 100 archivos por ZIP.

Probé hasta con 3999 y esta ok, pero lo necesito con capacidad para 10.000 archivos por ZIP. 

al tratar de ejecutar el codigo para 10.000 me da el siguiente error:
Error de compilación -- Demasiadas variables locales no estáticas

Si alguien me pudiese explicar cómo corregir este drama, me lo cuenta por favor. Ahora si alguien tiene otra forma de comprimir gran cantidad de ficheros, bien venido será su código.

Gracias...

[--<<<@u6u$t0>>>--]

 Bueno, si ese codigo no da resultado porba usando este Control ActiveX:
-ZipTV Compression Components Suite (2.37MB)
http://www.ziptv.com/download/ztvax03u.exe

En la pagina oficial de este Software hay otras utilidades para manipular archivos comprimidos. Si te interesa prodrias recorrerla. Chau y suerte...

                                                           --<<<@u6u$t0>>>--

[Leoj90]

Uhh, de la web del guille .... mejor no contesto 

[_Sergi_]

Uhh, de la web del guille .... mejor no contesto

¿Porque? ¿Que pasa con esa web?