FSO ~ Copiamos carpetas

[eriik]

Lo que hariamos en referencia es activar FSO y luego para copiar una carpeta añadiriamos este código:

Código:

Dim fso As FileSystemObject     
Set FSO = New FileSystemObject
' En rutacopiar añadiriamos la ruta de la carpeta que queremos copiar
' y en rutaPegar la ruta donde se pegara la carpeta
FSO.CopyFolder rutaCopiar, rutaPegar
End Sub

Muy sencillo, buena suerte.