Hola,
estoy haciendo un script con lo siguiente:
Introduzco un numero de proyecto en una InputBox y me crea una carpeta. Despues de esa carpeta creo unas subcarpetas. A esas subcarpetas quiero ponerles permisos individuales, como el no poder las carpetas ni borrarlas
como podria hacer esto?
Permisos? o atributos de archivo?
Atributos
Set objfso = createobject("scripting.filesystemobject")
Set fol = objfso.getfolder("C:\Carpeta") 'obtenemos el control sobre la carpeta
fol.attributes = 1 'solo lectura
Donde el valor de atributo puede ser alguno de los siguientes
Valor 0 1 2 4 8 16 32 64 128
| Atributo Normal Solo Lectura Oculto Sistema Letra de disco Carpeta/directorio Archivo Link o acceso directo Comprimido
|
|
Permisos
Para los permisos puedes hacer uso del comandos CACLS de ms-dos
http://support.microsoft.com/kb/162786/es
Saludos