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

  • Автор темы KLif
  • Дата начала
K

KLif

#1
Всем привет.

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

Oksana

Lotus team
10.01.2006
329
0
#2
Всем привет.

Нужен диалог для выбора директории, где будут храниться базы ... шас просто в текстовое поле ввожу путь руками ... кто-нибудь делал подобное, есть идеи?
@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]; "" :mad:Left(file; " "))
 
K

KLif

#3
@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]; "" :mad:Left(file; " "))
Мне не нужно выбирать файл, мне нужно выбрать директорию ...
 

Omh

Lotus team
04.07.2007
2 210
1
#4
В ws.SaveFileDialog можно выбрать директорию, но не совсем прозрачно.
 
A

Alexander BEZ

#7
Код:
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