Hola gente, estoy con un inconveniente, que de seguro la solución está en mis narices, pero no la veo.

Tengo un formulario con 4 TextEditor, donde debo cargar 4 archivos de texto diferentes, que tienen en común que se llaman igual y cambia la extensión (.tex, .bib, .sgl y .nts)

El código que utilizo para hacer la carga del 1 (el que manda) es:

Código:

Public Sub menuAbrir_Click()

  Dialog.Title = "Seleccionar archivo"
  Dialog.Filter = ["*.tex", ("Formato permitido")]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then
    Return
  Else
    cadena = File.Load(Dialog.Path)
    TextEditor.Text = cadena
  Endif
  FormEDITOR.Title = File.RealPath(Dialog.Path)
  ruta = File.RealPath(Dialog.Path)
  TerminalView1.Input("cd " & File.Dir(Dialog.Path) & "\n" & "clear" & "\n")
Catch
  Message.Error("No se pudo abrir el archivo")
  TextEditor.SetFocus()

Lo que estoy haciendo acá es cargar el .tex en el primer TextEditor, poner la ruta y el nombre en la cabecera del formulario y aplicar la ruta a una consola.

Aplico los siguientes cambios (se nota que mi lógica es mala, porque no funciona)

Código:

    cadena = File.Load(Dialog.Path)
    TextEditor.Text = cadena
    cadenaBIB = File.Load(File.BaseName(Dialog.Path)) & ".bib" 'cargo en otra variable el archivo bib
    txtBIB.Text = cadenaBIB

Alguien me puede mostrar que hago mal

Gracias de antemano

No entiendo, ¿cual es el problema exactamente?

Que raro, yo lo veo, adjunto captura

Archivos adjuntos

---

Que raro, yo lo veo, adjunto captura

si, ok en ete post se ve correctamente. en el otro post no se ve, pero no importa seguimos por aca

El problema en concreto es que no logro levantar los otros archivos en sus correspondientes textEdit.

Carga el primero y luego me sale un cartel que dice que no pudo cargar el archivo.

Tenes que poner esto

Código:

[hr]
Te explico.
[code]sRuta= "/home/alberto/unarchivo.txt"
File.Dir(sRuta)= /home/alberto
File.BaseName(sRuta) = unarchivo

Perfecto Tincho y entendí muy bien la lógica, gracias de nuevo