Форум продуктов IBM Lotus
Общие вопросы => Разработка приложений => Тема начата: Dima_163rus от 30 Март 2017, 15:37:44
-
Ребят, агент на WebQueryOpen не хочет создавать папку в директории и соответственно вкидывать в неё присоединенный файл, подскажите кто сталкивался.
Dim rtitm_web As NotesRichTextItem ‘Поле в вэб
Dim rtitm_client As NotesRichTextItem‘Поле в клиенте
Set rtitm_web = New NotesRichTextItem(docContext, "Documents")'Создаем rtf поле в вэб форме
Set rtitm_client = entry_doc1.GetFirstItem("Documents")
'Поле и в вэбе и в клиенте есть!!!
'Выгрузить доки в директорию
Dim pth_str$, tmppth_str As String
If Isempty(rtitm_client.EmbeddedObjects) Then 'нет OLE-объектов
print ""
Else
If entry_doc1.HasEmbedded Then 'Проверка на присоединенные файлы
Forall o In rtitm_client.EmbeddedObjects 'перебираем все присоединенные файлы, пока берем первый
pth_str$ = o.Name
Goto ExtrMark
End Forall
End If
End If
ExtrMark:
'Создаем каталог временной выгрузки на С
Dim dt As New NotesDateTime( "" ),dt_date$,dt_time$
Call dt.SetNow
dt_date$ = dt.DateOnly
dt_time$ = dt.TimeOnly
dt_date$ = Left(dt_date$,2)+Right(Left(dt_date$,5),2)+Right(dt_date$,2)
dt_time$ = Left(dt_time$,2)+Right(Left(dt_time$,5),2)+Right(dt_time$,2)
tmppth_str = Environ$("TEMP") + "\TmpTpl_"+dt_date$+"_"+dt_time$
Mkdir tmppth_str 'Создаем каталог
'Каталог не создался на диске C
'Выгружаем шаблон в созданную директорию
Dim object As NotesEmbeddedObject
Set object = rtitm_client.GetEmbeddedObject(pth_str$ )
Call object.ExtractFile (tmppth_str & "\" & Cstr(pth_str$))
'Добавляет в RTF-поле присоединенный файл или ссылку на него.
Set object = rtitm_web.EmbedObject( EMBED_ATTACHMENT, "nm_doc$", tmppth_str + "\"+nm_doc$)
' Ругается на то, что в нужной директории нет файлика