Examples: CanCreateSharedFolder property

This script creates an entry for Nedra Keen in the ACL with Editor access and allows her to create shared folders.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = New NotesACLEntry(acl, _
"Nedra Keen/East/ACME",ACLLEVEL_EDITOR)
entry.CanCreateSharedFolder = True
Call acl.Save