Detener funcion hasta que termine

[Netyco]

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.

[Txoco]

Hola!

Para empezar, tienes que detener el flujo dentro de GuardaZip.

Como no sabemos qué codigo tiene, supondremos que estás lanzando una llamada al sistema mediante la función Shell.

Si esto es así, Shell es asíncrona, es decir, ejecuta el programa que le digas y, en cuanto puede, sigue ejecutando tu programa, de forma que se ejecutan los dos en paralelo, y si lo haces dentro de un bucle, tu programa estará lanzando hilos del otro como si le fuera la vida en ello, saturándote el equipo.

Si utilizas Shell, en las FAQ tienes cómo hacer para que tu programa se espere a que termine el otro (http://www.forosdelweb.com/f69/faqs-vb6-222289/index5.html#post1413172)

Si lo haces de otra forma, dínoslo, que entonces la cosa cambia!

[Netyco]

Si, siento por no aportar el dato quizas mas importante.

Lamentablemente lo estoy haciendo de otra forma...

Basicamente la funcion contiene lo siguiente:

function guardaZIP(ruta, NombreZip, recursivo)
With m_cZ
.ClearFileSpecs
.ZipFile = NombreZip
.BasePath = ruta
.AddFileSpec "*"
.StoreDirectories = True
.StoreFolderNames = True
.RecurseSubDirs = recursivo
.Zip
End With
end function

Y bueno, esa funcion trae toda una clase... que no se si seria util, pero por las dudas dejo el enlace: http://www.vbaccelerator.com/home/VB...le_Project.asp

Desde ya muy agradecido por tu ayuda.

[David]

Por el momento, la única idea que se me ocurre sería crear otro ejecutable para guardar en ZIP (puedes enviarle parámetros y recuperarlos con Command), luego para ejecutar ese programa utilizas Shell como te mencionó Txoco (acerca del ejemplo en las FAQ's).

[Netyco]

Si, luego de leer lo de Txoco, se me ocurrio esa idea tambien, ahora me voy a meter a jugar con los parametros entonces, jejeje

Muchisimas gracias por sus ayudas Txoco y David, fueron muy amables ambos...

Bueno, y si alguien sabe de algo mas, pues avise antes de comenzar con lo del otro ejecutable :)

Saludos cordiales...

[Netyco]

Disculpen que moleste tanto,

Les comento que logre hacerlo, y funciona todo Perfectamente con el comando con la funcion que me pasaron:

EsperarShell (App.Path & "\GeneraZip.exe ElParametro")

Todo funciona genial desde VisualBasico (con F5) pero cuando me voy a la opcion para crear el ejecutable, esta caracteristica deja de trabajar y por lo tanto el archivo GeneraZip.exe nunca es llamado.

En el load de GeneraZip.exe he colocado un MsgBox, pero nunca lo muestra cuando lo llamo desde mi aplicacion en VB

Me parece super extraño este comportamiento, a alguien le a pasado? existe alguna solucion para esto?

Quedo por favor a la espera de sus respuestas.

[Netyco]

Jejeje, lo siento, lo solucione....

El problema era el App.path.

he dejado el codigo de esta forma: EsperarShell ("GeneraZip.exe ElParametro") y ambos archivos en el mismo directorio.

Gracias nuevamente.

[David]

Me alegro que lo hayas solucionado. Cualquier duda estamos por aquí.

Saludos