copiar archivos y sus directorios a otros directorios

Arancha
07 de Febrero del 2006
Hola,
me podría alguien facilitar un trozo de código que examine las carpetas y los archivos de un determinado directorio y los copie con la misma estructura en otro directorio?
MUCHAS GRACIAS

Rosa
07 de Febrero del 2006
Hola, puedes usar el método CopyFolder del FileSystemObject, para poder usar esa librería tienes que referenciarla en tu proyecto (Menú Proyecto -> Referencias -> Microsoft Scripting Runtime

Dim FileSystemObject As Scripting.FileSystemObject

Set FileSystemObject = New Scripting.FileSystemObject
FileSystemObject.CopyFolder "c:Mis documentoscartas*", "c:carpetatemp"
Set FileSystemObject = Nothing

Arancha
07 de Febrero del 2006
Muchas gracias Rosa!
funciona correctamente, la única pega que le veo es que sólo me pasa las carpetas completas con su contenido, pero si hubiera archivos colgando directamente de la carpeta principal, éstos no se pasan....ALGUNA IDEA O SUGERENCIA?
GRACIAS!!