Список Баз На Сервере

makaset

Well-known member
14.03.2007
128
0
#1
привет Всем.
как можно вытащить список баз на сервера. делаю
Set directory = New NotesDbDirectory( "ServNames" )
Dim tmp As NotesDatabase
Set tmp = directory.GetFirstDatabase( DATABASE )
он вытаскивает все базы включая папки, а мне надо только спсиок баз без файлов внутри папок
 
06.12.2011
468
134
#2
эээ... т.е. только те, что в директории Data? Data\Help не годится?
Странный вопрос, тогда отсеивай не нужные по признаку NotesDataBase.FilePath
 

savl

Lotus team
28.10.2011
2 136
105
#3
makaset
посмотри базу catalog.nsf, лежит в корне каждого сервака.
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 231
18
#4
а в чём проблема при переборе сделать проверка на база это или нет?