lotus-notes - 允许用户在 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

I guess that what you are needing is how to select a folder, no a file.

This is what you need from IBM's Notes and Domino Application Development wiki

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")