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

[fvoice]

Есть метод:

Set notesView = notesDatabase.CreateView( [ viewName$ ] , [ viewSelectionFormula$ ] , [ templateView ] , [ prohibitDesignRefreshModifications ] )

в качестве параметра templateview передаю обьект notesview с параметром IsFolder = true (т.е. папку), на выходе получаю копию папки, только View..

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

 

[Medevic]

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

 

[fvoice]

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

 

[Medevic]

Для: fvoice
Забыл еще про это:
Call doc.ReplaceItemValue("$Name", "Новая папка")

 

[fvoice]

Call doc.ReplaceItemValue("$Name", "Новая папка")

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

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