ERROR CARPETA COMPRIMIDA

[Roberto Tello & Asoc. - Estudio Informatico]

Hola amigos baje este codigo de un foro pero me da error, alguien puede orientarme por donde puede venir...??

cNuevoZip = "C:\Users\ROBERTO\Documents\PagosMiscuentas\2013\MiArchivo.Zip"
cOrigen   = "C:\Users\ROBERTO\Documents\PagosMiscuentas\2013\SEPTIEMBRE2013"
Strtofile(Chr(0x50)+Chr(0x4B)+Chr(0x05)+Chr(0x06)+Replicate(Chr(0),40),cNuevoZip)
oShell = Createobject("Shell.Application")
For Each oArchi In oShell.NameSpace(cOrigen).Items
    oShell.NameSpace(cNuevoZip).CopyHere(oArchi)
Endfor

MESSAGEBOX("La Copia Fue Realizada !",0+64,"Copias de Seguridad")

Aqui el error:

Error de Compresion de carpetas (en zip)
Archivo no encontrado o falta permiso de lectura

Me comprime algunos archivos de la carpeta... pero me deja muchos sin incluirlos.

Saludos.-

--
Roberto

[alejandro]

Hola me ocurre el mismo problema, alguien pudo detectar el motivo del error, o alguna otra herramienta para zipear los archivo?

Muchas gracias a todos!!