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
|