Разрешить пользователю выбирать путь к папке в Lotus Notes

Question

Как лучше всего разрешить пользователю выбирать путь к папке в Notes?

Answer 1

Я использую эту недокументированную функцию @formula или Lotus Script в течение многих лет и люблю ее:

@Prompt(14; ""; "");

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

@Prompt([LocalBrowse]; ""; "");

Это также можно использовать через

Dim uiws As New NotesUIWorkspace
folder = uiws.Prompt(14, {}, {})

Кредиты идут на: http://news4notes.com/web/dokumente/notes_undocumented_formula.html

Содержит список хороших недокументированных функций.

Answer 2

Проверьте документацию для NotesUIWorkspace.OpenFileDialog(), эта функция отображает диалог файлов с Lotus Script.

Answer 3

Полагаю, вам нужно выбрать папку, а не файл.

Это то, что вам нужно из вики IBM по разработке приложений и заметок Domino

Const BIF_NEWDIALOGSTYLE = &H00000040
Const BIF_NONEWFOLDERBUTTON = &H00000200
Dim objShell As Variant
Dim objFolder As Variant
Dim objFolderItem As Variant
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Please select a folder", BIF_NONEWFOLDERBUTTON + BIF_NEWDIALOGSTYLE, "C:\")
If Not (objFolder Is Nothing) Then
    Set objFolderItem = objFolder.Self
    Msgbox objFolderItem.Path 
End If

Answer 4

Из справки:

stringArray = notesUIWorkspace.OpenFileDialog(multipleSelection, [title$], [filters$], [initialDirectory$], [initialFile$])

Пример:

Dim ws As New NotesUIWorkspace
filenames = ws.OpenFileDialog(True, "Select files to be deleted", "All Files|*.*", "c:\work")