Zip32.dll

[Skalitiko]

Ojala alguien pueda ayudarme,

Estoy intentando ocupar la dll zip32.dll, para comprimir archivos desde vb, esto funciona bastante bien cuando quiero comprimir solamente archivos, pero, cuando quiero comprimir un directorio con todos sus subdirectorios se me produce un error y se me cierra visual (Tipico error: Vb6.exe has generated errors.... Bla, Bla, Bla). Lo que tengo para lograr esto, es una variables llamada MyNames del tipo ZIPnames que es la que contendra los paths de los archivos a comprimir y una variable llamada MyOpt de tipo ZPOPT que es la que lleva las opciones de zipeo, entonces en my codigo pongo lo siguiente

MYUSER.DLLPrnt = FnPtr(AddressOf DLLPrnt)
MYUSER.DLLPASSWORD = FnPtr(AddressOf DllPass)
MYUSER.DLLCOMMENT = FnPtr(AddressOf DllComm)
MYUSER.DLLSERVICE = FnPtr(AddressOf DllServ)

MYOPT.fRecurse = 2 ' por lo que entiendo si es 2 comprimirá los subdirectorios
zipname = App.Path & "\ZipDePrueba.zip"
MYNAMES.s(0) = "C:\FarPoint"
a = ZpInit(MYUSER)
a = ZpSetOptions(MYOPT)
a = ZpArchive(aantal, zipname, MYNAMES)

Yo imagino que lo que proboca el error es la forma en la que estoy pasando la ruta de la carpeta a la que quiero comprimir, también intente colocando c:\Farpoint\*.*, pero sucede lo mismo.