1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Lotus - Программирование", создана пользователем SkyDream, 19 дек 2007.

Статус темы:
Закрыта.
  1. SkyDream

    SkyDream Гость

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

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

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    <!--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]

    не совсем понято что не понятно
     
  3. SkyDream

    SkyDream Гость

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

    Folder1\Base1.nsf
    Folder2\Base2.nsf

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

    Sandr Гость

    Репутация:
    0
    Код:
    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
    тоесть перебрать все базы и сравнивать их папку с той, которая Вам нужна...
     
  5. Akupaka

    Akupaka А че я?.. О.о

    Репутация:
    0
    Регистрация:
    4 окт 2007
    Сообщения:
    3.360
    Симпатии:
    2
    не факт, что в последнем примере нужно открывать и проверять на IsOpen... нас интересуют БД по конкретному пути, а не те, кот. там есть и кот. мы можем открыть...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей