COPIAR ARCHIVOS DE VARIAS SUBCARPETAS

2 envíos / 0 nuevos
Último envío
Fernando Martínez
Imagen de Fernando Martínez
Offline
última acción: Hace 4 años 2 meses
alta: 22/06/2012 - 21:11
Puntos: 109
COPIAR ARCHIVOS DE VARIAS SUBCARPETAS

Un saludo a todos los del foro, solicito su aproyo ya que estoy aprendiendo VBA y no logro solucionar lo siguiente:

Estoy adaptando un código que bajé de internet para copiar archivos contenidos en varias subcarpetas y que se copien todos a una sola carpeta, es decir; existe una carpeta que tiene varias subcarpetas y cada una de ellas contiene archivos, lo que hace esta macro es copiar todos esos archivos a una sola carpeta.

La macro funciona si se selecciona la carpeta de origen con el buscador y si se pone "a mano" la carpeta destino.

Lo que quisiera hacer es seleccionar también con el buscador la carpeta destino, pero si lo hago así, me arroja el error "70" en tiempo de ejecución permiso denegado.

Adicionalmente quisiera que me pueda al final arrojar un mensaje de la cantidad total de acrchivos copiados.

Subo el archivo que contiene la macro para mejor comprensión.

De antemano muchas gracias.

TitoPaKa
Imagen de TitoPaKa
Offline
última acción: Hace 3 años 10 meses
alta: 16/03/2017 - 06:33
Puntos: 50
Buenas,he probado el código,

Buenas,

he probado el código, y no arroja ningún error.

para la cantidad de archivos, mira ésta propiedad Carpeta.Files.Count, asigna una variable cantidad = Carpeta.Files.Count y luego, si es que hay iteración suma el valor Cantidad = cantidad + Carpeta.Files.Count

 

a ver si te sirve