Список баз на сервере в конкретной папке

[SkyDream]

Как получить список баз данных в заданной папке на сервере?

Dim variableName as New NotesDbDirectory( serverName$ )
or
Set notesDbDirectory = New NotesDbDirectory( serverName$ )

данная команда выводить только полный список баз, как быть?

 

[morpheus]

<!--QuoteBegin-SkyDream+19:12:2007, 12:36 -->
<span class="vbquote">(SkyDream @ 19:12:2007, 12:36 )</span><!--QuoteEBegin-->Как получить список баз данных

[snapback]90545" rel="nofollow" target="_blank[/snapback]​

[/quote]
Если Вы получили список, то в чем вопрос <!--QuoteBegin-SkyDream+19:12:2007, 12:36 -->
<span class="vbquote">(SkyDream @ 19:12:2007, 12:36 )</span><!--QuoteEBegin-->данная команда выводить только полный список баз, как быть?

[snapback]90545" rel="nofollow" target="_blank[/snapback]​

[/quote]

не совсем понято что не понятно

 

[SkyDream]

на сервере "Server" есть папки "Folder1", "Folder2"...
в каждой папке лежат базы "Base1.nsf", "Base2.nsf".....

Folder1\Base1.nsf
Folder2\Base2.nsf

как получить список баз в папке Folder2 ?

 

[Sandr]

Set dbdir = s.GetDbDirectory(serverName$)
Set db = dbDir.GetFirstDatabase(TEMPLATE_CANDIDATE)

dim path as string
dim dbRep as variant
redim dbRep(0)
path = "Folder2"

While Not db Is Nothing
If db.FilePath = path + "\" + db.FileName Then 			

Call db.Open("","")


If db.IsOpen Then
dbRep = ArrayPpend(dbRep, db.replicaID)						
End If

End If
Set db = dbDir.GetNextDatabase
Wend
dbRep = Fulltrim(dbRep) 'Это будет масив РепликИД всех баз папки Folder2

тоесть перебрать все базы и сравнивать их папку с той, которая Вам нужна...

 

[Akupaka]

не факт, что в последнем примере нужно открывать и проверять на IsOpen... нас интересуют БД по конкретному пути, а не те, кот. там есть и кот. мы можем открыть...