Не создается директория Mkdir в Lotus Notes 6.5

Автор Тема: Не создается директория Mkdir в Lotus Notes 6.5  (Прочитано 832 раз)

Dima_163rus

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
    • E-mail
Ребят, агент на 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$)
' Ругается на то, что в нужной директории нет файлика         
« Последнее редактирование: 30 Март 2017, 15:53:45 от Dima_163rus »