Public Sub Form_Open()
Dim ruta As String
pBash = TerminalView1.Exec(["bash"])
ruta = TerminalView1.Input("pwd").Split("\n")[0]
If ruta.EndsWith("\n") Then
ruta = ruta[0, ruta.Length - 1]
End If
TextBox1.Text = ruta
End
'Requiere gb.desktop & gb.form.terminal
pBash As Process
Public Sub Button1_Click()
Dim ruta As String
pBash = TerminalView1.Exec(["bash"])
TerminalView1.SetFocus
Desktop.SendKeys("pwd" & gb.NewLine)
Wait 0.25
ruta = TerminalView1.Text
TextBox1.Text = Split(ruta, gb.NewLine)[1]
Desktop.SendKeys("clear" & gb.NewLine)
End