Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto.
Sigo lidiando con el código y he descubierto que no es facil sustituir el print por un text area , el print se usa en modo texto y el textarea es objecto pero por alguna razon que desconozco no funciona dentro de un IF Then Else Endif.
Os dejo el código que me ha funcionao a medias o sea yo queria que en caso de que el hwloc no este se muestre el resultado del comando que me recomendaron (which) pero tambien tube que sustituir por (dpkg -l ) ya que el which no printeaba nada.
Bueno el código aunque mucho tiene que pulirse (me gustaria aportar ademas que he leido unas quantas veces los anteriores comentarios y ayudas y le di mil vueltas al código que termino asi) →
Public Sub Button3_Click()
Dim salida As String
'Dim comando As String
'Dim programa As String
Shell "dpkg -l hwloc" To salida
'Shell "dpkg -l" & comando To salida
'Shell "dpkg -l hwloc" & user.home To salida
'Wait 0.01
'comando = "hwloc"
TextArea1.Text = salida
If salida = " " Then
' Read salida
Else
Shell "lstopo"
Endif
End
Este código me da retorno al objecto TextArea del comando dpkg -l hwloc (hwloc es el paquete que te instala el comado lstopo) despues más abajo me entra en el IF Endif y me lo ejecuta bien en una ventana del mismo lstopo que yo queria que se metiera dentro del text area.
Por cierto por añadir cosas al programa como en un Texarea se le mete al lado un scroll vertical que de paso le meto otro boton más y le hago un dpkg -l , y asi vamos haciendo una navaja de sistema Debian para quien le guste .
Recordando que a estas alturas la aplicacion hace lo siguiente →
Te listea tu distribución , version.
Te listea versiones Kernel.
Te ejecuta lstopo para ver procesador datos.
Otras ideas estan en camino aunque no se si las podre hacer, más que de mi depende de vosotros que me ayudais ya que yo programando muy bueno no soy.
Gracias.