Permisos sobre carpetas y archivos vbs

[sisti]

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?

[Novlucker]

Permisos? o atributos de archivo?

Atributos

Código (vb) [Seleccionar] Expandir

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