Copiar imágenes de una ruta específica a otra ruta
Me pueden ayudar con una Macro para copiar los archivos de una carpeta a otra carpeta, pero solamente que copie los archivos que empiezan con la palabra fig
Gracias expertos.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia en la macro lo "C:\varios\" por tu carpeta donde tienes los archivos, y cambia "C:\figuras\" por la ruta en donde quieres que se copien los archivos. Recuerda poner al final de cada ruta la diagonal \
Sub CopiarArchivos()
'por.Dante Amor
rutaori = "C:\varios\"
rutades = "C:\figuras\"
ChDir rutaori
arch = Dir("fig*")
Do While arch <> ""
FileCopy rutaori & arch, rutades & arch
arch = Dir()
Loop
MsgBox "Terminado"
End SubSaludos.Dante Amor
Si es lo que necesitas.
