Estimados, hace mucho que no trabajo en Vb y ahora estoy necesitando desarrollar una funcion, quisiera saber si dese aqui pueden ayudarme...
Resulta que tengo un codigo como este:
Código:
While Not rs.EOF
guardaZIP RUTA, NombreZip, recursivo
rs.MoveNext
Wend
rs.Close
Donde GuardaZIP es una funcion que he desarrollado.
Ruta es el nombre del directorio o fichero a comprimir.
NombreZip es el nombre que tendria el archivo ZIP.
Recursivo indica si buscaria en las otras carpetas internas o no.
Mi problema exacto es que esta funcion esta dentro de un While, y es por esta razon que cuando se inicia el proceso de GuardaZIP (dependiendo del total de archivos de cada RUTA) se demora y llega a tildar la maquina.
Ya probe colocando DoEvents, pero no encuentro solucion con esa funcion.
Quisiera saber si de alguna forma puedo hacer que cuando se inicie la funcion GuardaZIP se "detega" el ciclo hasta que esta termine... para de este modo no saturar la memoria de la PC.
Alguien puede ayudarme respecto a esto? o alguna otra solucion que pudiese existir...
Desde ya muycas gracias.