Chmod con entorno gráfico

Chmod con entorno gráfico

Os dejo una pequeña herramienta realizada con gambas3, para tener el comando chmod de forma gráfica, osea que se presente un pequeño formulario donde podamos elegir el archivo, indicar los permisos que queremos cambiar y la contraseña ROOR para modificar los permisos de escritura/lectura/ejecución tanto de los fichero propietarios, del grupo o otros.

El código en gambas es el siguiente:

Public Sub Form_Open()

Me.Title = "Chmod Gráfico"

End

Public Sub ButtonAplicar_Click()

Dim salida As String

Shell "ls -l " & LabelFichero.text To salida
TextArea1.text = salida
Shell "echo " & TextBoxClave.text & "|chmod " & TextBoxPermisos.text & " " & LabelFichero.text To salida

TextArea1.text &= salida
Shell "ls -l " & LabelFichero.text To salida
TextArea1.text &= salida

End

Public Sub ButtonFichero_Click()

If Not Dialog.OpenFile() Then
LabelFichero.text = Dialog.Path

Endif

End

Como veis la orden usada es SHELL para pasar la contraseña, y los parametros del comando chmod, luego todo lo que salga por consola, se carga a la variable "salida", que ira mostrada en un textarea.


Os dejo aqui un pequeño video con la explicación:


Enlace de descarga del código fuente: alojado en google drive

Saludos

Julio