03/09/2006, 18:38
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 6 meses Puntos: 3 | |
| Asi creas Carpetas
' Valida si existe carpeta, si no existe la crea
On Error Resume Next
set fso = CreateObject("Scripting.FileSystemObject")
if err <> 0 then
msg = "*** ERROR AL CREAR OBJETO FileSystemObject : " & hex(err.number) & " - " & err.description & " ***"
llamalog()
end if
if fso.FolderExists(nm_directorio) then
msg = " *** ERROR : DIRECTORIO O CARPETA A CREAR YA EXISTE *** "
llamalog()
else
set directorio = fso.CreateFolder(nm_directorio)
if err <> 0 then
msg = "ERROR AL CREAR DIRECTORIO O CARPETA : " & hex(err.number) & " - " & err.description & " ***"
llamalog()
end if
end if
Y para los permisos a la carpeta del usuario puedes usar el Comando CALC .......revisa lo que le conteste a quien pregunto como usar el WSHELL... puse el ejemplo completo de como autorizar a un usuario a usar una carpeta especifica en este mismo foro....... es un mensaje que esta con fecha de hoy 3/sep
Hice todo eso porque construi un Sitio para la Gestion Documental de documentos y era con perfiles y privilegios por usuario... lo mismo que tu quieres hacer....
Espero te sirva |