Macro Copiar Pegar Archivos

Respuesta de
a
Usuario
Buenos Días:
Nuevamente recurre a su todopoderosa experiencia y sabiduría para resolver una duda de macros de excel.
Estoy tratando de realizar una macro que me copie unos arhcivos de una ruta a otra, es decir:
Tengo los archivos ejemplo.xls, prueba.txt, guía.ppt en C:\documentos.
Copiarlos a D:\documentos antiguos.
No se si eso se pueda realizar, he intentado varias cosas pero no me han resultado muy bien, gracias por la ayuda que me puedan brindar.
Avatar
Experto
Hola.
 
Creo que esta simple macro de abajo hace lo que pides.
 
Saludos
Angel
 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaFichero()
       CarpetaOrigen = "C:\documentos"
       CarpetaDestino = "D:\documentos antiguos"
       Fichero1 = "ejemplo.xls"
       Fichero2 = "prueba.txt"
       Fichero3 = "guia.ppt"
       FileCopy CarpetaOrigen + "\" + Fichero1, FicheroDestino + "\" + Fichero1
       FileCopy CarpetaOrigen + "\" + Fichero2, FicheroDestino + "\" + Fichero2
       FileCopy CarpetaOrigen + "\" + Fichero3, FicheroDestino + "\" + Fichero3
End Sub

 
Usuario
Excelente, me funciona correctamente pero seria lo mismo para borrar los archivos de la carpeta en ves de copiarlos, es decir seria con FileDelete.?
Avatar
Experto
En ese caso utiliza kill para borrarlos una vez copiados:
 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiaFichero()
       CarpetaOrigen = "C:\documentos"
       CarpetaDestino = "D:\documentos antiguos"
       Fichero1 = "ejemplo.xls"
       Fichero2 = "prueba.txt"
       Fichero3 = "guia.ppt"
       FileCopy CarpetaOrigen + "\" + Fichero1, FicheroDestino + "\" + Fichero1
       FileCopy CarpetaOrigen + "\" + Fichero2, FicheroDestino + "\" + Fichero2
       FileCopy CarpetaOrigen + "\" + Fichero3, FicheroDestino + "\" + Fichero3
       Kill CarpetaOrigen + "\" + Fichero1
       Kill CarpetaOrigen + "\" + Fichero2
       Kill CarpetaOrigen + "\" + Fichero3
End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Si consideras que ya está resuelta tut duda, por favor, finaliza la pregunta. Gracias.
 
Saludos
Angel
 
Usuario
Excelente, es justo lo que necesitaba muschisimas gracias.