Código:
Imports System.IO
Imports System.Text
Imports Scripting
'el siguiente código lo pondríamos dentro del evento de un botón.
Dim fso as fileSystemObject
set fso = New FileSystemObject
' dónde rutaDestino y rutOrigen son variables dónde les pasamos las rutas correspondientes.
' Dónde "Yes" es por si queremos reescribir los datos de destino. Si no quieres, pones "False"
fso.CopyFolder (rutaOrigen, rutaDestino, Yes)
¿Estamos hablando de Windows Forms?, yo no tengo ese "Imports Scripting" y... ¿Esto será multiplataforma?