molezip.dll

Humberto
04 de Agosto del 2004
Estoy haciendo la prueba del siguiente codigo que me permite extraer archivos del winzip a traves del VFP 6.0 Pero no tengo resultado alguno. No se cual puede ser mi error. Gracias por la respuesta. El codigo es el siguiente:
Extraer ficheros: ----------------------------------------------
oZip.Open("C:Prueba.Zip")
oLista = oZip.Enumerate()
* Contamos ficheros:
i=0
do while oLista.Next
i=i+1
enddo
* Extraemos todos:
oLista.reset
do while oLista.Next()
oZip.Extract( oLista.value, ; && Nombre del fichero en el Zip
"_" + oLista.value ) && Nombre del fichero destino
enddo
oZip.Close