FileCopy

[SKL®]

Ok aca esta el codigo para copiar Carpetas y SubCarpetas.

Código:

Dim fso As Object
        fso = CreateObject("Scripting.FileSystemObject")
        fso.CopyFolder("C:\Test", "C:\Test2\")
        fso = Nothing

Saludos!!!!!