This function creates the shell browser.
object.CreateExtShellBrowser()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the folder select dialog and the result of the path selection done by a user.
Dim aBrowser
Dim aResult
Set aBrowser = Profile.CreateExtShellBrowser
aBrowser.Caption = "Shell Browser"
aBrowser.Prompt = "Select a folder"
aBrowser.RootPath = "D:"
aBrowser.InitialPath = "D:\Build"
aResult = aBrowser.Execute
if aResult then
Profile.MsgBox(aBrowser.PathName)
else
Profile.MsgBox("User cancelled the path selection")
end if