IMetabase.PrivateFolder

Синтаксис

PrivateFolder: IMetabaseObjectDescriptor;

PrivateFolder: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;

Описание

Свойство PrivateFolder возвращает личную папку текущего пользователя.

Пример

Выполнение примера предполагает наличие формы с кнопкой. Пример является обработчиком события для кнопки.

Добавьте ссылку на системную сборку Metabase.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
Begin
    MB := MetabaseClass.Active;
    Debug.Write(MB.PrivateFolder.Id + " " + MB.PrivateFolderRoot.Id);
End Sub Button1OnClick;
 Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
Begin
    MB := Self.Metabase;
    System.Diagnostics.Debug.Write(MB.PrivateFolder.Id + " " + MB.PrivateFolderRoot.Id);
End Sub;

При выполнении примера в консоль среды разработки будут выведены идентификатор личной папки текущего пользователя и идентификатор корневой папки для личных папок пользователей.

См. также:

IMetabase