Hola buenas tengo una duda importantilla, tengo una aplicación que gestina otra en modo bacth mediante com server. (activex) el tema es que estoy automatizando una cosa que son muchas horas ( y horas de ahorro para los ingenieros) es un programa de diseño.

Bueno al grano es que a parte de optimizar el código para que me consuma menos e intentarlo hacer todo muy pulido hay veces que me consume tanta memoria que el pc desborda y mi aplicación medio extaña.


a parte del Doevents

y de esta cutre función sabeis metodos más serios para hacer esto??
Un saludo y gracias!!


Sub MEM_FREE()
Dim x As Integer
Dim i As Integer
On Error Resume Next
doevents
x = FreeFile
Open App.Path & "\free.vbe" For Output As #x
Print #x, "Mystring=(80000000)"
Close #x
DoEvents
If Dir(App.Path & "\free.vbe") <> "" Then ShellExecute 0, "", App.Path & "\free.vbe", "", "", 5
Sleep 5000
DoEvents
launch_catia
If Dir(App.Path & "\free.vbe") <> "" Then Kill App.Path & "\free.vbe"
End Sub