Hola gente, estoy intentando adaptar esta función, es una solución muy práctica que aporto en su momento el compañero jsban,

Código:

    Dim mtmp As Menu
    Dim file As String

    For Each file In Dir(rutaScriptsExternos, "*.py").Sort()
      mtmp = New Menu(Menu76) As "obs"
      mtmp.caption = file
    Next

el tema es que ahora en una situación muy parecida (ya que rutaScriptsExternos es una ruta fija del programa) donde lo que cambia es la ruta (ahora refiere al directorio de trabajo y por consiguiente, es cambiante), el bucle no actualiza el contenido de los archivos que lee, sino que los va sumando, el bucle está así

Código:

  Dim mntp2 As Menu
  Dim file2 As String

  ' Ahora se procede a agregar los nuevos menús
  For Each file2 In Dir(rutaFILES, "*").Sort()
    mntp2 = New Menu(mDirFiles) As "obs2"
    mntp2.caption = file2
  Next

ahora bien, rutaFILES, se actualiza sin problemas, ya que el resto del programa que usa esa misma variable no tiene errores, mi pregunta es si el error está en como represento el bucle ya que si no entiendo mal, al cambiar el directorio se debería refrescar el caption.

La única diferencia importante que observo es que, el primer bucle está dentro del evento Open del formulario principal y el segundo dentro del evento click del menu abrir.

Ya me perdí.

Los Menús son algo puñeteros en algunas cosas y nunca entendí del todo cómo los maneja el programa. Mejor al cambiar la ruta elimina el menú y vuelve a crearlo vía código.