Error en el metodo NameSpace

[rollito2005]

Buenas noches amigos,
Tengo un codigo para descomprimir archivos:

Dim origen, destinoo As Variant
Set oAplica = CreateObject("Shell.Application")

origen = "C:\Users\grupo\Dropbox\Limpiezas\CTQUI000O.RAR"
Destino = "\\192.168.8.89\fotos1"
oAplica.Namespace(Destino).CopyHere oAplica.Namespace(origen).items

Fucionaba bien, sin embargo me empieza a mostar el error indicado:
Error en el metodo NameSpace de objeto IShellDispatch6, saben como puedo arreglarlo????

De antemano les agradezco su amable asesoria.
Roger

[RMG]

Hola,

No he usado el metodo NameSpace, pero puedes probar con el comando de Basic FileCopy.

FileCopy(origen, Destino)

Saludos

[Longi]

Buenas!
Yo estoy utilizando lo siguiente:

Código: Seleccionar todo   Expandir vistaContraer vista

Dim Shell : Set Shell = CreateObject("Shell.Application")
Shell.NameSpace(Destino).CopyHere Origen


Pero creo que el caso es diferente, yo lo uso para meter un documento (solo uno) en una carpeta comprimida. Supongo que el tuyo es para meter varios elementos (lo cual también incluiría uno solo).
De momento me parece que me funciona bien en Windows 10, LOo 6.04

Un saludo!