1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

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

Диалог для выбора директории

Тема в разделе "Lotus - Программирование", создана пользователем KLif, 7 апр 2008.

  1. KLif

    KLif Гость

    Репутация:
    0
    Всем привет.

    Нужен диалог для выбора директории, где будут храниться базы ... шас просто в текстовое поле ввожу путь руками ... кто-нибудь делал подобное, есть идеи?
     
  2. Oksana

    Oksana Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    10 янв 2006
    Сообщения:
    329
    Симпатии:
    0
    @prompt

    10. [LOCALBROWSE] provides controls and displays that allow you to browse and select a name from the local file system. This example opens the Notes/Domino database file the user selects from the local browser. The "1" restricts the initial display to .nsf files.
    file := @Prompt([LOCALBROWSE]; "Select a database to open"; "1");
    @If(file = ""; @Return(1); "");
    @Command([FileOpenDatabase]; "" :@Left(file; " "))
     
  3. KLif

    KLif Гость

    Репутация:
    0
    Мне не нужно выбирать файл, мне нужно выбрать директорию ...
     
  4. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    В ws.SaveFileDialog можно выбрать директорию, но не совсем прозрачно.
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  6. KLif

    KLif Гость

    Репутация:
    0
    Спасибо, оба способа хороши :)
     
  7. Alexander BEZ

    Alexander BEZ Гость

    Репутация:
    0
    Код:
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim folder As Variant
    
    folder = ws.SaveFileDialog( True,"File name",,,)		
    Set uidoc = ws.CurrentDocument
    Call uidoc.FieldAppendText("DirRar", folder(0))
    
    End Sub
     
Загрузка...

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