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

Question

允许用户在Notes中选择文件夹路径的最佳方式是什么？

Answer 1

检查文档NotesUIWorkspace.OpenFileDialog()，此功能显示与Lotus脚本的文件对话框。

Answer 2

从帮助文档：

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

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

我用这个无证@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

包含了很好的无证功能列表。