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

  • Автор темы SkyDream
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SkyDream

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

Код:
Dim variableName as New NotesDbDirectory( serverName$ )
or
Set notesDbDirectory = New NotesDbDirectory( serverName$ )
данная команда выводить только полный список баз, как быть?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
<!--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]

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

SkyDream

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

Folder1\Base1.nsf
Folder2\Base2.nsf

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

Sandr

#4
Код:
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

А че я?.. О.о
04.10.2007
3 360
1
#5
не факт, что в последнем примере нужно открывать и проверять на IsOpen... нас интересуют БД по конкретному пути, а не те, кот. там есть и кот. мы можем открыть...
 
Статус
Закрыто для дальнейших ответов.