Ejemplo de chmod de Gambas

Como reto, cambia la propiedad text a "Crear y ejecutar"
y usa el comando shell de gambas para ejecutar el Scrits y por medio de un comentario muéstranos tu modificación del código. Saludos.

' gambas class file

'by postapase

Public Sub Form_Open()

End

Public Sub Button1_Click()
Dim TextoScript As String
Dim Ruta As String

Ruta = User.Home &/ "MiScript.sh"
TextoScript = "#!/bin/sh" & gb.NewLine
TextoScript &= "# by postapase" & gb.NewLine
TextoScript &= "echo Esto es un ejemplo de como usar chmod de gambas" & gb.NewLine
TextoScript &= "echo " & TextBox1.Text
File.Save(Ruta, TextoScript)
'si comentamos chmod nos da este error de permisos al ejecutar el script
'bash: ./MiScript.sh: Permiso denegado
'porque crea el script sin permiso de ejecucion para todos.
' "-rw-r--r--" la solución es usar chmod
Chmod Ruta To "rwxr-xr-x"
'el script ahora esta pronto para ser ejecutado abre una terminal
'anda a tu user home (predeterminado) y escribe
' ./MiScript.sh
'y veras los resulados.
End

chmodScript-0.0.1.tar.gz