Visual Basic - Comprimir archivos

Hola muy buenas a todos, 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 )

En este codigo se utiliza un FileListBox (File1), aqui viene el problema, si lo dejo tal como esta me comprime correctamente pero eso si, todos los archivos donde se encuentra el programa instalado, y si quiero indicarle un directorio para que me comprima los archivos que se encuentran en él, no me hace nada. Alquien sabe a que se todo esto??

Muchas gracias a todos.

Un saludo.

y digo yo...

¿no sería mas sencillo que preguntaras/buscaras la respuesta en el foro del guille?

* Forma 1 - solo tienes que indicar el directorio corriente.

ChDir "c:\carpeta1\carpeta2" ' esto ubica el directorio a usar.
File1.Path = CurDir ' esto solo muestra el contenido
File1.Refresh

* Forma 2 - en el momento de llamar a la funcion ZpArchive :

- las lista de archivos tienen que contener el camino completo por ej:

c:\imagenes\img01.jpg
c:\imagenes\img02.jpg
c:\imagenes\img03.jpg
c:\imagenes\img04.jpg

..

- el nombre del zip a crear tambien por ej:
c:\MiJpgZip.zip.

por defeto usa el directorio :
MsgBox CurDir

Muchas gracias Aquiles, he probado tal como me has dicho y funciona perfectamente, ¡eres un crack!. Ya estaba un poco agobiado con esto.
Un saludo.

Holassss....... perdón que interfiera pero yo tengo un problema con con este tama

A mi me funciona correctamente comprimir y descomprimir utilizando zip32.dll y el unzip32 pero..... como hago para comprimir .ZIP con password y descomprimir con passwod...

e buscado por la red pero encuentro multitud de codigos para comprimir y descomprimir prero
nada que pueda comprimir .ZIP con password......