ya encontre el codigo y lo comparto .
primero borro lo que hay en la carpeta, despues copio todo lo que encuentra, primero carpetas y despues todos los archivos.
lo unico que no pude es que si la carpeta no esta creada en el destino , no la crea, pero es un detalle si siempre esta creada.
Private Sub Form_Load()
Dim mensaje As String
Dim fso, MiArchivo
Set fso = CreateObject("Scripting.FileSystemObject")
Set MiArchivo = fso.deletefolder("c:\\mis documentos\\informe comercial\\*")
Set MiArchivo = fso.deletefile("c:\\mis documentos\\informe comercial\\*.*")
Set MiArchivo = fso.CopyFolder("I:\\informe comercial\\*", "C:\\mis documentos\\informe comercial\\", True)
Set MiArchivo = fso.CopyFile("I:\\informe comercial\\*.*", "C:\\mis documentos\\informe comercial\\", True)
end
saludos