Tres en Uno:
Búsqueda de archivos, copia y eliminación automatizada (rápida, exhaustiva y segura)
Uno de mis mas recientes pero reiterados clientes me pidió ayuda con una rutina en Office Access VBA que describo a continuación:
Existen dos carpetas, una que llamaremos carpeta origen y otra carpeta destino con las siguientes características:
Carpeta Origen:
Contiene cualquier cantidad de archivos en formato jpg (*.jpg) almacenados en ella o en cualquier cantidad de subcarpetas o subsubcarpetas etc., etc. cuyos nombre usan un prefijo de referencia (ref*.jpg) por el cual se van a buscar y seleccionar en los momentos adecuados
Carpeta Destino:
Inicialmente vacía, sin subcarpetas
Se quiere una rutina VBA que al ejecutarla desde un formulario haga lo siguiente:
Carpeta Origen
Busque y encuentre los nombres de los archivos de referencia del momento (ref*.jpg) en la carpeta Origen y en todas sus subcarpetas y subcarpetas de subcarpetas, etc.,etc
Carpeta Destino:
Copie los archivos por su nombre de referencia (ref*.jpg) en la carpeta Destino
Carpeta Origen:
Elimine los archivos encontrados en Origen y en todas sus subcarpetas y subcarpetas de subcarpetas, etc.
Aún cuando no conozco del todo el contexto ni las razones por la que existe tal entorno de carpetas y archivos redundantes etc., me dediqué a la tarea de emprender el desarrollo, resultado de lo cual obtuve un par de subrutinas que satisfacen plenamente el requerimiento a satisfacción mía y del cliente
Este logro me ha puesto a pensar nuevamente en ciertos modelos de aplicaciones Office Access que he pensado repetidamente para explorar los directorios del mis unidades de disco y almacenamiento en busca de archivos redundantes y descartables para la liberación de espacio
Luego de mas de dos décadas que comencé a dar mis primeros pasos con esta herramienta sigo encontrando y disfrutando de lo que se puede hacer con ella de una forma relativamente simple y segura
Cualquier detalle a la orden
Saludos cordiales
AR