Apache OpenOffice: Foro oficial de la comunidad

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

Hola,

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

FileCopy(origen, Destino)

Saludos

Buenas!
Yo estoy utilizando lo siguiente:
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!