Вопрос вопросович!

[SOFTOBZOR.ru]

Все привет.

Доно:

Файл file.exe
Файл file.ini
Файл аfile.wav

Создана БД в которой есть всего 1 документ с полем Attachs куда прегреплены выше перечисленые файлы и типа кнопка [установить]

Задача такая.
При нажатии на эту кнопку все файлы должны извлечся автоматом в директорию lotus/domino/dir
Хорошо если лотус может создать папку dir если нет то прямо в domino.

При этом если усложнить вопрос идеально если в notes.ini пропишится ряд строчек.

А теперь вопрос: Реально ли такое, если реально, то дайте пинка в нудном направлении только не в маны, там нифига не нашел.

 

[Medevic]

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->При нажатии на эту кнопку все файлы должны извлечся автоматом в директорию lotus/domino/dir

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

[/quote]
notesEmbeddedObject.ExtractFile(path$)

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->Хорошо если лотус может создать папку dir если нет то прямо в domino.

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

[/quote]
MkDir path
Здесь, если не ошибаюсь, придется создавать каждую папку (если её нету) в пути. Т.е. сначала lotus, потом domino, потом dir.

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->При этом если усложнить вопрос идеально если в notes.ini пропишится ряд строчек.

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

[/quote]
Write

 

[DNT]

Для: SOFTOBZOR.ru


...

Set rtitem = doc.GetFirstItem( "Attachs" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
FileName$ = Cstr(o.Source) ' имя файла
End If
directory_path$ = "c:\lotus\domino\" + dir_name$
Mkdir(directory_path$)
Call o.ExtractFile ( directory_path$ & FileName$ ) 'Извлекаем файло на диск
End If
End Forall

...

и усё
а notes.ini поправить тоже не вопрос

 

[GROMILA]

реально,
поищи в helpe дизайнера про
- NotesRichTextItem
- MkDir
- Getting and setting environment variables

 

[SOFTOBZOR.ru]

Спасибо большое, очень много интересного!!!

Вот еще вопрос, в ini заколбашено

Directory=C:\Program Files\lotus\notes\data

Если просить @Environment("Directory") не фига не возвращает, а если прописать такую строку в ini
$Directory=C:\Program Files\lotus\notes\data то возвращает, как бы выкопать без $

 

[SOFTOBZOR.ru]

Что то не фурыкает:

Sub Click(Source As Button)

Set rtitem = doc.GetFirstItem( "Attachs" )
dir_name$ = "BRB"
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
FileName$ = Cstr(o.Source) ' имя файла
End If
directory_path$ = "c:\" + dir_name$
Mkdir(directory_path$)
Call o.ExtractFile ( directory_path$ & FileName$ ) 'Извлекаем файло на диск
End Forall
End If
End Sub

Давлю на кнопу а мне в ответ привет Variant does not contain an object

 

[DNT]

Для: SOFTOBZOR.ru

а переменные что отменили объявлять и инициализаровать?

 

[Medevic]

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 14:27 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 14:27 )</span><!--QuoteEBegin-->Давлю на кнопу а мне в ответ привет Variant does not contain an object

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

[/quote]
Скорее всего на первой строчке. Нету дока.

 

[SOFTOBZOR.ru]

Есть док, все прицеплено.
Что-то не фурыкает.

 

[DNT]

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:52 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:52 )</span><!--QuoteEBegin-->Есть док, все прицеплено.
Что-то не фурыкает.

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

[/quote]

???

Dim Session As New Notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim NUIW As New notesuiworkspace


Set db = session.CurrentDatabase
Set Doc=NUIW.CurrentDocument.Document 'документ

вот теперь будет, я полагаю

 

[Constantin A Chervonenko]

Вот еще вопрос, в ini заколбашено
Directory=C:\Program Files\lotus\notes\data
Если просить @Environment("Directory") не фига не возвращает, а если прописать такую строку в ini
$Directory=C:\Program Files\lotus\notes\data то возвращает, как бы выкопать без $

"Собачья" Environment возвращает только юзерские ини (т.е. с $), а вот её скриптовая сестрица умеет и системные

 

[SOFTOBZOR.ru]

Господа всем бонжур!
Помогли здорово!
Работает