Buenas!.
Usando un comando externo a Gambas. Intente usar Try, Catch, Error para comprobar si el proceso
me detectaba error, pero no lo he logrado de esa manera.
Si lo he logrado mediante la gestión del proceso.
Ejemplo uno. No me funciona.
Código:
Public Sub Button1_Click()
'Es solo un ejemplo, el comando podía haber sido otro
Shell "ls -l /home/pepe/"
If Error Then
Print "El directorio no existe"
Else
Print "Fin"
Endif
End
Como es normal no he usado Try, que esto hace que se ejecute la instrucción si o si, de error o no lo de.
Ahora usando Procesos, el que me ha funcionado.
Ejemplo dos.
Código:
Private textoError As String
Public Sub Form_Open()
End
Public Sub Button1_Click()
'Limpiamos siempre el contenido de la variable
textoError = ""
'Es solo un ejemplo, el comando podía haber sido otro
Shell "ls -l /home/pepe/" For Read Write As "Proceso"
End
Public Sub Proceso_Error(sError As String)
textoError &= sError
End
Public Sub Proceso_Read()
Dim sLinea As String
sLinea = Read #Last, Lof(Last)
Print sLinea;
End
Public Sub Proceso_Kill()
If textoError Then Message.Error(textoError)
Print "Proceso Finalizado"
End
Saludos