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

  • Автор темы Sandro
  • Дата начала
S

Sandro

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

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

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

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

hosm

* so what *
18.05.2009
2 442
6
#2
if not isEmpty(rt.EmbeddedObjects) ' есть вложения в рт-поле
 

Omh

Lotus team
04.07.2007
2 210
1
#3
Я делаю так
Код:
Dim EOs As Variant
EOs = rt.EmbeddedObjects
if Not isempty(EOs) then
'погнал
End if
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
Sandro
у Вас ключефое слово "файликов", а Эмбетедобджекс != файл

If ( o.Type = EMBED_ATTACHMENT ) Then ...
 
S

Sandro

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

Sandro

#6
:) Ну вообщем понятно, спасибо за разъяснения