forum.clarionlife.net

Код: Выделить всё

CreateZIPFile    PROCEDURE
Loc:STR            STRING(22) 
Loc:Object       CSTRING(65)                                 

  CODE

  ! --- Сформировать пустой ZIP файл ---
  Loc:STR = '<80><75><5><6>' & All(Chr(0),18)  ! Бинарное содержание пустого ZIP файла
  WriteStringToFile(Loc:STR,'c:\archiv.zip')      ! Некая процедура для запись строки в DOS файл

   Loc:Object                                   = Create(0,Create:Ole)
   Loc:Object{Prop:Create}               = 'Shell.Application'
   Loc:Object{Prop:ReportException} = True   ! Выдавать сообщения об ошибках - можно убрать

   ! Записать файл shet.doc в архив archiv.zip
   Loc:Object{'NameSpace("c:\archiv.zip").CopyHere("c:\shet.doc",20)'}

   ! Дождаться завершения архивации, иначе получим GPF
   Loop until Loc:Object{'NameSpace("c:\archiv.zip").Items().Count'} = 1
       Yield
    end

    ! Удалить используемый объект и освободить память
    Loc:Object{Prop:Deactivate}
    

Код: Выделить всё

Loc:Object  CSTRING(65)           
ZipFile_ CSTRING(255)
DestFolder_ = CSTRING(255)

  CODE

  Loc:Object                       = Create(0,Create:Ole)
  Loc:Object{Prop:Create}          = 'Shell.Application'
  Loc:Object{Prop:ReportException} = True

  ZipFile_ = 'c:\archiv.zip'
  DestFolder_ = 'c:\'

  Loc:Object{'NameSpace("' & DestFolder_ & '").CopyHere(' & Clip(Loc:Object{'NameSpace("' & ZipFile_ & '").Items()'}) & ',20)'}
  Loc:Object{Prop:Deactivate}