Диалог для выбора директории

[KLif]

Всем привет.

Нужен диалог для выбора директории, где будут храниться базы ... шас просто в текстовое поле ввожу путь руками ... кто-нибудь делал подобное, есть идеи?

 

[Oksana]

Всем привет.

Нужен диалог для выбора директории, где будут храниться базы ... шас просто в текстовое поле ввожу путь руками ... кто-нибудь делал подобное, есть идеи?

@prompt

10. [LOCALBROWSE] provides controls and displays that allow you to browse and select a name from the local file system. This example opens the Notes/Domino database file the user selects from the local browser. The "1" restricts the initial display to .nsf files.
file := @Prompt([LOCALBROWSE]; "Select a database to open"; "1");
@If(file = ""; @Return(1); "");
@Command([FileOpenDatabase]; "" Left(file; " "))

 

[KLif]

@prompt

10. [LOCALBROWSE] provides controls and displays that allow you to browse and select a name from the local file system. This example opens the Notes/Domino database file the user selects from the local browser. The "1" restricts the initial display to .nsf files.
file := @Prompt([LOCALBROWSE]; "Select a database to open"; "1");
@If(file = ""; @Return(1); "");
@Command([FileOpenDatabase]; "" Left(file; " "))

Мне не нужно выбирать файл, мне нужно выбрать директорию ...

 

[Omh]

В ws.SaveFileDialog можно выбрать директорию, но не совсем прозрачно.

 

[Medevic]

Ссылка скрыта от гостей

 

[KLif]

Спасибо, оба способа хороши

 

[Alexander BEZ]

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim folder As Variant

folder = ws.SaveFileDialog( True,"File name",,,)		
Set uidoc = ws.CurrentDocument
Call uidoc.FieldAppendText("DirRar", folder(0))

End Sub