1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Выгрузка и удаление вложений с символами ( ) в имени файла

Есть глюк лотуса, функция kill не стирает файлы со скобками в имени.
Обходим так:

If doc.HasEmbedded Then ' ---------------- // ВЛОЖЕНИЯ
   'Print "XML HasEmbedded!"
  Set rtitem =  doc.GetFirstItem("attach") 'doc.GetFirstItem("ПРИЛОЖЕНИЯ_")
  If Isempty( rtitem.EmbeddedObjects) Then
   Print "нет приложений"
  Else
   Forall obj In rtitem.EmbeddedObjects
    If ( obj.Type = EMBED_ATTACHMENT ) Then
     oname$ = obj.Source 
     oname$ = Replace(oname$, "(", "_")
     oname$ = Replace(oname$, ")", "_")
     Print oname$
     Call obj.ExtractFile( datapatch$ & oname$ )   ' тоже фиг обработаешь ((

Поделиться