Copiar directorios

[davidcr]

Hola.

He buscado mucho por internet y no encuentro ningun ejemplo de como copiar en VB una carpeta completa a otro directorio al estilo Xcopy es decir una carpeta con todas sus subcarpetas

Lo unico que he visto que funciona es usar Scripting.Object pero el problema es que en mi caso son archivos grandes lo que ocupo copiar aprox 1Gb y el programa es para un cliente y necesito se muestre algun progressbar o similar que indique el estado de la copia ya sea por el total de los archivos, o midiendo el progreso de cada archivo. Scripting.object tiene el problema de no tiene forma de medir el estado de por donde vá y mientras esta copiando el programa se freeza

¿Alguien tiene un ejemplo de ayuda que incluya un progressbar para una carpeta y todos sus subdirectorios?

muchas gracias