Button to Browse and Select System Folder

Mindwatering Incorporated

Author: Tripp W Black

Created: 01/10/2011 at 05:43 PM

 

Category:
Notes Developer Tips
LotusScript

Sub Click(Source As Button)
'declarations
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim path As String

'get a handle on the uidoc
Set uidoc = ws.CurrentDocument

'prompt the user to choose a folder
path = ws.Prompt ( 14 , "" , "" )

'write selected folder path to a field
Call uidoc.FieldSetText ( "RE_FilePath" , path )
End Sub

previous page