1

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

4

4 回答 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 回答