Asignar permisos lectura-escritura.

On Tue, 8 Jun 2004 13:39:01 +0200, "Eduardo Castellano"
wrote:

Como puedo añadir-modificar permisos de lectura y escritura para los
usuarios de red a archivos desde fox?

Hay varias formas, desde usar DOS, a usar Windows API, a WSH

Por ejemplo en WSH:

#define READONLY 1
#define HIDDEN 2
#define SYSTEM 4
#define DIRECTORY 16 && carpeta
#define ARCHIVE 32
oFSO = CreateObject("Scripting.FileSystemObject")
oFile = oFSO.GetFile("c:\prueba.txt")
lnOldAttribute = oFile.Attributes && guarda atributos existentes
oFile.Attributes = READONLY && cambia a RO



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Vale. ¿Pero si quiero dar el permiso a nivel de usuario.?
El programa que estoy haciendo tiene que dar o quitar permisos a los
distintos usuarios en tiempo de ejecución.
Digamos que el usuario inicia la aplicación no tiene ningun permiso, y en
función de sus acciones debe acceder o no a modificar un archivo o una
carpeta y al terminar debe recomponerse la situacion inicial
P. ej. Usuario1 a Carpeta1 solo lectura, Usuario2 a Carpeta1 escritura,
Usuario1 a Carpeta2 escritura
¿Existe algo parecido al Scripting.FileSystemObject que me lo permita?

Muchas Gracias.

"Alex Feldstein" escribió en el mensaje
news:

On Tue, 8 Jun 2004 13:39:01 +0200, "Eduardo Castellano"
wrote:

>Como puedo añadir-modificar permisos de lectura y escritura para los
>usuarios de red a archivos desde fox?

Hay varias formas, desde usar DOS, a usar Windows API, a WSH

Por ejemplo en WSH:

#define READONLY 1
#define HIDDEN 2
#define SYSTEM 4
#define DIRECTORY 16 && carpeta
#define ARCHIVE 32
oFSO = CreateObject("Scripting.FileSystemObject")
oFile = oFSO.GetFile("c:\prueba.txt")
lnOldAttribute = oFile.Attributes && guarda atributos existentes
oFile.Attributes = READONLY && cambia a RO



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)