Macro para sincronizar imágenes de varios directorios
La macro, que va ok, debe buscar en el directorio "cajas-almacén" las imágenes con el mismo nombre (obvienado la extensión) de fichero, copiar la imagen encontrada al directorio "cajas", borrando del directorio "cajas" la imagen cuyo nombre utilizó para buscar en "cajas-almacen", que pudiera o no tener la misma extensión.
Gracias Dante.
Un saludo, Santi.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para borrar otros archivos con el mismo nombre y diferente extensión.
Sub SincronizarDirectorios()
'Por.Dante Amor
Application.DisplayAlerts = False
d1 = "C:\trabajo\1\"
d2 = "C:\trabajo\2\"
'
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(d1)
For Each subcarpeta In carpeta.subfolders
b = subcarpeta.Name
For Each arch In subcarpeta.Files
a = arch.Name
a2 = InStrRev(a, ".")
a3 = Left(a, a2 - 1)
dir1 = d1 & b & "\"
dir2 = d2 & b & "\"
otros = Dir(dir2 & a3 & ".*")
If otros <> "" Then
Do While otros <> ""
Kill dir2 & otros
otros = Dir()
Loop
FileCopy dir1 & a, dir2 & a
End If
Next
Next
MsgBox "Terminado"
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
