Visual Basic - Copiar una carpeta completa

Hola amigos, como estas?

Me pueden colaborar guiandome como puedo copiar una carpeta completamente, es decir con todos los archivos que existan en el momento.

Gracias, espero me puedan ayudar.

Puedes utilizar comandos de shell osea :

aa = shell("copy c:\directorio c:\windows\directorio")

no funciona me marca error
AA = Shell("copy d:\OCovenas1 c:\ArchivoPdf")

dice que el archivo no se encuentra.

Tienes razon, me equivoque.. este te debe funcionar

Dim sCmd As String
Dim sShell As String

sCmd = "copy d:\OCovenas1 c:\ArchivoPdf"
sShell = Environ$("COMSPEC")
bla1 = Shell(sShell & " /c " & sCmd, vbHide)