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

  • Автор темы fvoice
  • Дата начала
F

fvoice

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
Код:
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
 
F

fvoice

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

fvoice

Гость
#5
Call doc.ReplaceItemValue("$Name", "Новая папка")
хм.. действительно, хоть и визуальной разницы сразу не заметил, подозреваю что не смогу обратиться к новосозданной папке по строке, указанной в $Title, если не укажу соответствующий $Name..

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