Список форм в базах

[Xalet]

Доброго времени суток всем.

Заранее хочу извиниться, если тема не нова и уже обсуждалась.

Задача такая: на сервере с Н базами запустить агентик/скриптик и получить список всех баз и форм/субформ в них.

Капать я так понимаю надо в сторону DXL. Но может у кого-то есть уже готовый инструмент, который бы сделал такой список?

 

[ToxaRat]

Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(True)
Call nc.BuildCollection
nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid) ' берём док

nid = nc.GetNextNoteId(nid)
Next

 

[Akupaka]

Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(True)
Call nc.BuildCollection
nid = nc.GetFirstNoteId
For i = 1 To nc.Count
Set doc = db.GetDocumentByID(nid) ' берём док

nid = nc.GetNextNoteId(nid)
Next

ToxaRat ,
и что это? Представь нам, пожалуйста, алгоритм или блок-схему сего произведения с комментариями. Где оно выполняет требуемые операции:

получить список всех баз и форм/субформ в них

?

xalet ,
копать надо в сторону справки, если кратко. Чтобы быть точнее, то рассмотри классы NotesDatabase и NotesDbDirectory.

 

[Darker]

а NotesDatabase.Forms уже не актуально? Или метод только формы берет?

 

[Akupaka]

Или метод только формы берет?

Берет все.

 

[Xalet]

После праздников моск не включился. Но как ни странно хватило ответа ToxaRat. Сразу про хелп вспомнил, а когда оттуда вылез с готовым кодом, тут как раз все расписали.

Спасибо всем.

 

[ToxaRat]

и что это? Представь нам, пожалуйста, алгоритм или блок-схему сего произведения с комментариями.

что тут не понятно?
берутся все дизайн єлементы, если нужно можно отдельно отбирать формы, иил виды и т.д. - всё в справке

 

[Akupaka]

что тут не понятно?

Ну, если тебе все еще не понятно, то тут ничего не поделаешь ))

 

[hosm]

Akupaka то был набор ключевых слов для поиска по лотус-хелпу. не занудствуй

 

[Akupaka]

Ну да, можно из Одессы в Киев ехать прямо по одесской трассе, а можно и через Донецк.
А я "придираюсь"