@picklist([folders]:[single]; Server:database) на скрипте?

[D!m@n]

Доброго времени суток!

Потребовалось изменить дизайн кнопки "Отправить и в папку" (Send and File) в стандартном почтовом ящике (добавил кое-какой функционал).
Для этого пришлось переписать кнопку на LotusScript.
И все бы ничего, но для выбора папки эта кнопка использовала @-функцию @PickList([FOLDERS]:[SINGLE]; server:database).
У NotesUIWorkspace.PickListStrings() параметра для выбора папок нет.
В Evaluate @PickList не работает.
Пришлось взять список всех папок в базе и засунуть его в Prompt. Но строковый массив имен папок базы набирается секунд 10-15, что для уишной кнопки крайне нежелательно.

Подскажите, как мне быть?
Заранее спасибо!

 

[morpheus]

https://codeby.net/threads/24034.html

 

[Omh]

Вообще, в SaveFileDialog можно выбрать папку.

 

[morpheus]

де ті раньше біл?

 

[Akupaka]

ребята, а вы не запутались? речь идет не о папках на диске, а о папках в базе

 

[D!m@n]

Спасибо за ответы, но, товарищи, Вы меня не так поняли
Имелся ввиду диалог выбора лотусной папки из базы, а не директории на диске
Аналог @PickList([folders]:[single]) !

p.s. На самом деле один вариант я уже придумал - часть действий у меня будет выполняться в коде на LS, который затем вызовет собачного агента. Но его я держу про запас, т.к. он немного некрасивый.

ребята, а вы не запутались? речь идет не о папках на диске, а о папках в базе

Именно так! :blink:

 

[Akupaka]

variant = notesUIWorkspace.Folder( [foldername$], move )

Parameters
foldername$ - String. Optional. Name of the folder to which the current document is to be moved. If you omit this parameter or specify it as an empty string, this method displays the "Move To Folder" dialog box.

move - Boolean. True moves the document from the current folder; False copies it. This parameter has no effect in a view -- the document is always copied. This parameter has no effect if the first parameter is not specified or is an empty string -- the document is copied or moved depending on the user's selection in the dialog box.
Return value
The return value is undefined.

 

[D!m@n]

notesUIWorkspace.Folder( [foldername$], move )

Большое Вам спасибо и +1 (я про эту функцию не вспомнил), но этот метод мне не совсем подходит... Дело в том, что он копирует текущий документ, а мне нужно, чтобы он просто вернул название выбранной пользователем папки...

 

[Akupaka]

та нзч, тогда, пока не знаю

 

[morpheus]

попробуйте
NotesNoteCollection с SelectFolders property = True

 

[D!m@n]

Это чтобы набрать имена папок побыстрее? Спасибо за совет!
завтра приду на работу, сравню, что быстрее работает
+1

 

[D!m@n]

Morpheus, большое спасибо! Это реально раза в три быстрее работает, чем как я изначально сделал!

 

[morpheus]

да незашо. мне самому стало интересно кака будет быстрее )))