Create method for select a folder on the server (component "Browser by server data directory")

I'm, as programmer, want to have a method in class "NotesUIWorkspace" to show browser by server data directory.

Such a window already exists in dialog "Archive settings -> Archive Criteria"  for server side archive config

For example, it will be "selectFolder( [initDir as String] ) as String"

initDir  - default value is directory of context database

initDir - "" is root of DATA

Dim ws as New NotesUIWorkspace

Dim folder as String, subFolder as String,  rootFolder as String

folder = ws.SelectFolder()

subFolder= ws.SelectFolder( "./subfolders" )

rootFolder  = ws.SelectFolder( "" )

rootFolder  = ws.SelectFolder( "acme\sub" )

Or

It will be "15" for method ws.Prompt with advanced parameters
folder = ws.Prompt( 14 ... )