привет всем знатокам

сабж
нужен совет
как получить список всех NSF и NTF сервака
чтоб пробежаться в цикле по всем базам

 

как минимум:
- catalog (задача и .nsf)
- прямым поиском фалов в ОС

 

привет всем знатокам

сабж
нужен совет
как получить список всех NSF и NTF сервака
чтоб пробежаться в цикле по всем базам

пример из хелпа, цикл я думаю сам организуешь:

Sub Initialize
Dim dbdir As New NotesDbDirectory("Snapper")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
Msgbox db.Title, , db.FileName
End Sub

 

Я уже где-то говорил, что NotesDbDirectory на удивление быстро работает.
Клёвая штука.