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
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
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!!
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!!