Convert mht file to zip

Hi kaiii,

I have a test which compress and send by mail a mht file.

Here are the few lines I use (delphi script) :

  Log.SaveResultsAs(ReportFolder + 'Report.mht', 2);
  FileList:= slPacker.GetFileListFromFolder(ReportFolder);
  ArchivePath:= ReportFolder + 'ZippedReport';
  if (slPacker.Pack(FileList, ReportFolder, ArchivePath)) then
    Log.Message('File ziped');
  result:= ArchivePath;