выбор директории на локале из Lotus Scripta

[johny]

что то никак в хелпе найти не могу... мож кто подскажет...

 

[morpheus]

Для: johny
На сабаках есть @Prompt с LOCALBROWSE

 

[Ronchik]

Example
Gets file names from the "Open" dialog box.
Note This method is new with Release 5.
Defined in
NotesUIWorkspace
Syntax
stringArray = notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )

 

[johny]

офигеть! дайте два B)

тока мне надо чтоб мне директорию вернул без имени файла

 

[Ronchik]

после выбора обработай стринговий массив как тебе будет угодно

 

[Hedg]

У меня вопрос по notesUIWorkspace.OpenFileDialog.

	Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim filename As Variant

Set uidoc =ws.CurrentDocument
Set doc = uidoc.Document
Dim path As String
path ="%USERPROFILE%"
filename = ws.OpenFileDialog( True, "Выберите файл(ы)",, path)

Если в диалоге выбора файлов нажать "Отмена" , то получаю Variant does not contain a container
Не могу придумать проверку что бы не выскаивало. =(

 

[morpheus]

Для: Hedg
очень странно...

Return value stringArray An array of type String.
(If the user clicks OK) the names of the selected files, one name per array element.
(If the user clicks Cancel) the EMPTY value. IsEmpty is True.

зделайте проверку, которая в хэлпе

Sub Initialize
Dim ws As New NotesUIWorkspace
REM Get filename from user
filenames = ws.OpenFileDialog( _
True, "Select files to be deleted",, "c:\work")
If Not(Isempty(filenames)) Then
Forall filename In filenames
Kill filename
End Forall
End If
End Sub

з.ы. я не уверен что OpenDialog прохавает вот это правильно path ="%USERPROFILE%" ... почему ? да потому что мультиплатформенный

 

[Hedg]

Для: Morpheus
%USERPROFILE% Работает

 

[morpheus]

<!--QuoteBegin-Hedg+24:05:2007, 14:10 -->
<span class="vbquote">(Hedg @ 24:05:2007, 14:10 )</span><!--QuoteEBegin-->%USERPROFILE% Работает

[snapback]66984" rel="nofollow" target="_blank[/snapback]​

[/quote]
хм.. значит я был не прав, забираю свои слова ...

по

If Isempty(filenames) Then

... странно, посомтрите в дэбагере, должно быть

If Not Isempty(filenames) Then

 

[Hedg]

Для: Morpheus
Был не прав Я
filenames и filename очень похожи, отличие в одну букву , за то сколько нервов..
Ещё раз спасибо