copiare una cartella ed il suo contenuto

[Sypher]

Sennò forse così è meglio:
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder xPathOrigine, xPathDestinazione
if Err.Number <> 0 then
MsgBox Err.Description
'Più eventuali altri controlli o se vuoi farlo uscire
end if