Si, siento por no aportar el dato quizas mas importante.
Lamentablemente lo estoy haciendo de otra forma...
Basicamente la funcion contiene lo siguiente:
function guardaZIP(ruta, NombreZip, recursivo)
With m_cZ
.ClearFileSpecs
.ZipFile = NombreZip
.BasePath = ruta
.AddFileSpec "*"
.StoreDirectories = True
.StoreFolderNames = True
.RecurseSubDirs = recursivo
.Zip
End With
end function
Y bueno, esa funcion trae toda una clase... que no se si seria util, pero por las dudas dejo el enlace:
http://www.vbaccelerator.com/home/VB...le_Project.asp
Desde ya muy agradecido por tu ayuda.