Autoriser un utilisateur à sélectionner un chemin de dossier dans Lotus Notes

Question

Quelle est la meilleure façon de permettre à un utilisateur de sélectionner un chemin de dossier dans Notes?

Answer 1

Vérifiez la documentation de NotesUIWorkspace.OpenFileDialog(), cette fonction affiche une boîte de dialogue de fichier avec Lotus Script.

Answer 2

De l'aide docs:

stringArray = notesUIWorkspace.OpenFileDialog(multipleSelection, [title$], [filters$], [initialDirectory$], [initialFile$]) 

Exemple:

Dim ws As New NotesUIWorkspace 
filenames = ws.OpenFileDialog(True, "Select files to be deleted", "All Files|*.*", "c:\work") 

Answer 3

Je suppose que ce que vous êtes besoin est de savoir comment sélectionner un dossier, pas un fichier.

C'est ce que vous avez besoin 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

J'utilise cette @Formula sans papier ou la fonction Lotus Script pendant des années et aime:

@Prompt(14; ""; ""); 

Permet à l'utilisateur de sélectionner un dossier de système de fichiers. Semblable à, mais pas les mêmes, que ...

@Prompt([LocalBrowse]; ""; ""); 

Cela peut également être utilisé via

Dim uiws As New NotesUIWorkspace 
folder = uiws.Prompt(14, {}, {}) 

Crédits aller à: http://news4notes.com/web/dokumente/notes_undocumented_formula.html

contient une liste de belles fonctions non documentées.