LotusScriptでは、次のような感じでしょうか。
フォーム上に作成した、編集モードの時だけ表示するボタンへ記述するコードを想定しています。
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim res
res = ws.SaveFileDialog( True, "フォルダ選択", "", "C:\", "")
ws.CurrentDocument.FieldSetText "FieldName", res(0)
End Sub