[Tip] Comprobando permisos en Gambas

Buenas a todos, muchas veces nos pasa que a la hora de crear un fichero y/o directorio , o querer editar uno ya existente no podemos debido a que no tenemos los suficientes permisos.. hoy vamos a hablar de como comprobar esto antes de crear ese fichero por ejemplo.Explicación

Lo vamos a comprobar con un Condicional IF (En otro tutorial vamos hablarlo) y una función llamada Access, también podemos comprobarlos en diferentes modos, me refiero a : Lectura, Escritura y Ejecución.
Syntaxis

Access("Ruta",Modo)

Ruta:
Puede ser una directorio o un fichero.Modos:gb.Read = Comprueba si hay permisos de Lecturagb.Write = Comprueba si hay permisos de Escrituragb.Exec = Comprueba si hay permisos de Ejecución
Ejemplo

En el siguiente ejemplo vamos a comprobar si tenemos permisos de escritura en mi directorio "/home/tecnoblog" si tenemos sale el primer mensaje y sino , el segundo...

IF (Access("/home/tecnoblog/", gb.write)) THEN
Message("Si, hay permisos")
ELSE
Message("No, no hay permisos")
ENDIF

Ejemplo2:

En este vamos a comprobar si tenemos permisos de lectura sobre el fichero "passwd"

IF (Access("/etc/passwd", gb.read)) THEN
Message("Si, hay permisos")
ELSE
Message("No, no hay permisos")
ENDIF

Creo que se entiende, cualquier duda, consulten

Saludos