允许用户在 Notes 中选择文件夹路径的最佳方法是什么?
问问题
3459 次
4 回答
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
包含一个很好的未记录函数列表。
于 2016-05-19T06:02:00.733 回答
2
检查文档NotesUIWorkspace.OpenFileDialog()
,此函数显示带有 Lotus Script 的文件对话框。
于 2010-06-29T11:33:48.540 回答
1
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
于 2015-02-26T04:51:08.673 回答
0
从帮助文档:
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")
于 2010-06-30T18:48:05.977 回答