Copiar directorios

davidcr · #1 (**permalink**) 31/05/2009, 18:27

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

seba123neo · #2 (**permalink**) 31/05/2009, 19:12

SHFileOperation

davidcr · #3 (**permalink**) 31/05/2009, 19:35

sorry pero me parece que SHFileOperation no permite usar algun progressbar. He descargado el siguiente ejemplo http://www.thescarms.com/vbasic/fileops.aspx pero aunque hay una casilla llamada Display Progress Dialog Box al parecer no funciona porque en mi pc aunque si copia el contenido la aplicacion se freeza y no veo la animacion de windows copiando los ficheros... ¿alguna idea de lo que pasara?

davidcr · #4 (**permalink**) 31/05/2009, 20:10

listo! he analizado un poco mas el ejemplo anterior lo ironico es que no hay que marcar la casilla de Display Progress Dialog porque al hacerlo mas bien hace lo contrario. Esto lo probe en windows server 2003 y en WinXP profesional

por el resto esta muy bien y esta facil de entender el codigo.