允許用戶在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

包含了很好的無證功能列表。