1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

Программное создание папок

Тема в разделе "Lotus - Программирование", создана пользователем fvoice, 22 авг 2007.

Наш партнер Genesis Hackspace
  1. fvoice

    fvoice Гость

    Есть метод:
    Код (Text):
    Set notesView = notesDatabase.CreateView( [ viewName$ ] , [ viewSelectionFormula$ ] , [ templateView ] , [ prohibitDesignRefreshModifications ] )
    в качестве параметра templateview передаю обьект notesview с параметром IsFolder = true (т.е. папку), на выходе получаю копию папки, только View..

    Можно ли программно создать действительно полноценную Папку?
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Код (Text):
    Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim newview As NotesView
    Dim doc As NotesDocument

    Set db = session.CurrentDatabase
    Set view = db.GetView("Папка-шаблон")
    Set doc = db.GetDocumentByUNID(view.UniversalID)
    Set doc = doc.CopyToDatabase(db)
    Call doc.ReplaceItemValue("$TITLE", "Новая папка")
    Call doc.Save(True, True)
    End Sub
     
  3. fvoice

    fvoice Гость

    Для: Medevic
    Спасибо огромное!
    Было довольно проблематично создавать порядка 1000 папок, с арифметически вычисляемыми названиями, а теперь с помощью этого скрипта, это дело нескольких минут!
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: fvoice
    Забыл еще про это:
    Call doc.ReplaceItemValue("$Name", "Новая папка")
     
  5. fvoice

    fvoice Гость

    хм.. действительно, хоть и визуальной разницы сразу не заметил, подозреваю что не смогу обратиться к новосозданной папке по строке, указанной в $Title, если не укажу соответствующий $Name..

    ..работает и без указания $Name, наверное @Command([OpenView];"name") обращается к $Title.
    Но скрипт все же дополнил.
     
Загрузка...

Поделиться этой страницей