jueves, 15 de octubre de 2015

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


No hay comentarios.:

Publicar un comentario

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.