IMetabasePolicy.SupportUserPrivateFolder

Syntax

SupportUserPrivateFolder: Boolean;

Description

The SupportUserPrivateFolder property determines the use of the mechanism of personal folders of users.

Example

To execute the example, add a link to the Metabase system assembly.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Policy: IMetabasePolicy;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Check out license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    Policy := MS.Policy;
    // Enable the use of user personal folders mechanism
    Policy.SupportUserPrivateFolder := True;
    // Display identifier of the folder containing user personal folders in the console
    Debug.WriteLine(Policy.UserPrivateFolderRoot.Id);
    // Save changes
    MS.Apply;
    // Check in license
    Lic := Null;
End Sub UserProc;

After executing the example the use of user personal folders mechanism will be enabled. The console displays identifier of the folder containing user personal folders.