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
Error en el metodo NameSpace
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
-
rollito2005
- Mensajes: 1
- Registrado: Dom Mar 28, 2021 7:22 am
Error en el metodo NameSpace
Sistema operativo de 64 bits, procesador basado en x64
Version Office 2102 (compilacion 13801, 2360
Version Office 2102 (compilacion 13801, 2360
Re: Error en el metodo NameSpace
Hola,
No he usado el metodo NameSpace, pero puedes probar con el comando de Basic FileCopy.
FileCopy(origen, Destino)
Saludos
No he usado el metodo NameSpace, pero puedes probar con el comando de Basic FileCopy.
FileCopy(origen, Destino)
Saludos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Error en el metodo NameSpace
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!
Yo estoy utilizando lo siguiente:
Código: Seleccionar todo
Dim Shell : Set Shell = CreateObject("Shell.Application")
Shell.NameSpace(Destino).CopyHere Origen
De momento me parece que me funciona bien en Windows 10, LOo 6.04
Un saludo!
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
Libreoffice 6.4.2, en Windows 10