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

我想您需要的是如何选择文件夹，而不是文件。

这就是您所需要的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")

允许用户在Lotus Notes中选择文件夹路径

4 个答案: