(pregunta) hacer copia de una carpeta con archivos y mas carpetas adentro

[marcos1979]

Espero te sirva

Código:

    Dim fs As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    fs.CopyFolder "C:\Origen", "C:\Destino", False 'Cambia False por True para sobreescribir
    
    MsgBox "Ya se copió todo"

Un saludo