• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы johny
  • Дата начала
J

johny

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

morpheus

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

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$] ) :)
 
J

johny

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

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

Ronchik

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

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
Не могу придумать проверку что бы не выскаивало. =(
 
M

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%" ... почему ? да потому что мультиплатформенный
 
M

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
 
H

Hedg

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!