Проверка существую ли вложенные файлы в Rt-поле

Тема в разделе "Lotus - Программирование", создана пользователем Sandro, 19 янв 2011.

  1. Sandro

    Sandro Гость

    Есть RT-поле в котором пользователи выкладывают файлики, мне надо отследить размер этих файликов и в случае изменения сообщить кому нужно . Так вот если файлов нет в поле,

    Forall o In rt.EmbeddedObjects
    fs=Clng(o.FileSize)+fs
    End Forall

    Цикл всё равно выполняется, почему то?, выдавая ошибку.

    Документ в целом на наличие вложенных доков проверить легко doc.HasEmbedded, а RT- поля ничего подобного не нашёл, как тут быть, подскажите новичку.
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    if not isEmpty(rt.EmbeddedObjects) ' есть вложения в рт-поле
     
  3. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Я делаю так
    Код (Text):
    Dim EOs As Variant
    EOs = rt.EmbeddedObjects
    if Not isempty(EOs) then
    'погнал
    End if
     
  4. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Sandro
    у Вас ключефое слово "файликов", а Эмбетедобджекс != файл

    If ( o.Type = EMBED_ATTACHMENT ) Then ...
     
  5. Sandro

    Sandro Гость

    Ну у меня поле только для файлов, туда ничего не пишется и при удалении этих самых файлов , что там в RT может быть встроено ?
     
  6. Sandro

    Sandro Гость

    :) Ну вообщем понятно, спасибо за разъяснения
     
Загрузка...

Поделиться этой страницей