Buscar archivos y guardarlos en una carpeta específica
Estimados/as,
Por favor me podrían ayudar con alguna MACRO que busque archivos en una carpeta y que de acuerdo al nombre los guarde en otra previamente creada.
Por ejemplo tengo los siguientes archivos:
IDI10438-Cartas
IDI10438-Objetos
IDI10438-Piezas
IDI10420-Cartas
IDI10420-Objetos
IDI10420-Piezas
La idea es que busque los nombres similares y los guarde en la carpeta creada con ese nombre. Osea los archivos que comienzan con IDI10438 los guarde en la carpeta creada de nombre IDI10438 y los que comienzan con IDI10420 los guarde en la carpeta de nombre IDI10420.
Me ayudarían mucho ya que tengo más de mil archivos que debo distribuir en las diferentes carpetas.
Muchas gracias por su ayuda y quedo atento a la respuesta.
1 respuesta
H o l a:
Te anexo la macro, cambia en la macro las carpetas de origen y de destino.
Sub MoverArchivos() 'Por.Dante Amor origen = "C:\trabajo\archivos\" 'Carpeta que tiene los archivos destino = "C:\trabajo\" 'Carpeta que tiene las carpetas archivo = Dir(origen & "*.*") Do While archivo <> "" guion = InStr(1, archivo, "-") If guion > 1 Then carpeta = Left(archivo, guion - 1) Name origen & archivo As destino & carpeta & "\" & archivo End If archivo = Dir() Loop MsgBox "Fin" End Sub
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
Estimado,
Agradezco la información pero no me funciona. Debo estar haciendo algo mal :(
Saludos!
Copia la macro con las modificaciones que hiciste y la pegas en el foro para revisarla
Si ya te funciona la macro,
R ecuerda valorar la respuesta. G r a c i a s
