Public Sub LeeEmpresas()
Dim dirEmpresas As String
CBEmpresas.Clear()
RejillaEmpresas.Columns.Count = 4
RejillaEmpresas.rows.Count = 0
RejillaEmpresas.Columns[0].Text = "ruta"
RejillaEmpresas.Columns[1].Text = "display"
RejillaEmpresas.Columns[2].Text = "select"
RejillaEmpresas.Columns[2].Text = "default"
For Each dirEmpresas In Dir("/iconianapps/lnxgest/empresas", "*", gb.Directory)
RejillaEmpresas.rows.Count = RejillaEmpresas.rows.Count + 1
RejillaEmpresas[(RejillaEmpresas.rows.Count - 1), 0].text = "/iconianapps/lnxgest/empresas/" & dirEmpresas
RutaXMLMods = dirEmpresas
LeeXMLMods()
Next
End
Dim dirEmpresas As String
CBEmpresas.Clear()
RejillaEmpresas.Columns.Count = 4
RejillaEmpresas.rows.Count = 0
RejillaEmpresas.Columns[0].Text = "ruta"
RejillaEmpresas.Columns[1].Text = "display"
RejillaEmpresas.Columns[2].Text = "select"
RejillaEmpresas.Columns[2].Text = "default"
For Each dirEmpresas In Dir("/iconianapps/lnxgest/empresas", "*", gb.Directory)
RejillaEmpresas.rows.Count = RejillaEmpresas.rows.Count + 1
RejillaEmpresas[(RejillaEmpresas.rows.Count - 1), 0].text = "/iconianapps/lnxgest/empresas/" & dirEmpresas
RutaXMLMods = dirEmpresas
LeeXMLMods()
Next
End
Hay que tener creados unos directorios para poder ejecutar la app?
Luego he visto que usas NX, yo estoy usando ahora x2Go que va bastante bien y es el reemplazo libre de NX ¿Tenes una versión mas actualizada del programa ?
Podrías explicar como se usa el programa y que se puede hacer con este?
Gracias de antemano.
Saludos.
Saludos.
