Visual Basic - ¿Copiar directorio?

Agradeceria que alguien me mostrase como copiar un directorio y todo su contenido. Muchas gracias por anticipado

hola
hace una referencia microsoft scripting runtime
dim Fso as filesystemobject

public sub CopiarD (Origen As string,Destino as String)
set fso=new filesystemobject
fso.copyfolder Origen,destino,Sobreescribir

set fso=nothing
end sub