Copiar contenido de carpetas en una sola carpeta.

Tengo una carpeta N que contiene un número indeterminado de carpetas, cada una con un nombre distinto a1, a2…, que es el nombre del usuario y no hay repetidos. En a1, a2…. Hay solo una hojas de cálculo c1, c2…. Me gustaría, que dentro de esa carpeta N me creara una nueva carpeta de nombre Todas (original, ¿a que sí?) Donde estuvieran copiadas todas las hojas de cálculo c1, c2…, cada una con su nombre de usuario.

Básicamente, se trata de tener todas las hojas reunidas en una sola carpeta, y no en carpetas individuales, pero sin borrar las originales. Si la rutina detecta que la carpeta Todas ya está creada, que la borre antes de hacer la copia.

Supongo que la rutina tendría que ejecutarla desde una hoja en blanco, y que a través del fileDialog yo le dijera donde esta N.