Copiar solo subdirectorios nuevos

[ingmichel]

Saludos colegas de delphi espero se encuentren bien, tengo una consulta a ver si alguien me puede ayudar, resulta que tengo una carpeta A con los subdirectorios 1,2,3 cada subdirectorio contiene archivos, lo que necesito es crear una rutina que me copie los subdirectos que existen en la carpeta A que no existen en la carpeta B es decir,
si hoy en la carpeta A tengo los subdirectorios 1,2,3 y los copio a la carpeta B, entonces si mañana agrego los directorio 4,5,6 a la carpeta A, solo copiar los subdirectorios nuevos a la carpeta B, en este caso 4,5,6,

nota. cada sub directorio contiene archivos, necesito copiar subdirectorios con sus archivos.


gracias de antemano.