Hola,

estoy utilizando la libreria zip32.dll para una aplicacion VB, pero cuando quiero zipar un archivo con password no se crea el zip.
alguien podria decirme si esta opcion funciona realmente?
o como lo ha hecho?

mi codigo es:

zDate = vbNullString
zJunkDir = 0 ' 1 = Throw Away Path Names
zRecurse = 0 ' 1 = Recurse -R 2 = Recurse -r 2 = Most Useful
zUpdate = 0 ' 1 = Update Only If Newer
zFreshen = 0 ' 1 = Freshen - Overwrite Only
zLevel = asc(9) ' Compression Level (0 - 9)
zEncrypt = 1 ' Encryption = 1 For Password Else 0
zComment = 0 ' Comment = 1 if required

zZipFileName = c:\mizip.zip

nom = dir(c:\tmpcc\ & "*.*&quot
Do While nom <> ""
filenames.Add nom
nom = dir
Loop

zArgc = filenames.Count ' Number Of Elements Of mynames Array
For i = 1 To filenames.Count
zZipFileNames.zFiles(i - 1) = "c:\tmpcc\" & filenames.Item(i)
Next i

zRootDir = "c:\tmpcc\" ' This Affects The Stored Path Name

retcode = VBZip32

muchas gracias!