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

2018-06-11T06:46:49Z

Есть глюк лотуса, функция 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$ )   ' тоже фиг обработаешь ((

Форум компьютерной помощи — Выгрузка и удаление вложений с символами ( ) в имени файла

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