Help for this page

Select Code to Download


  1. or download this
    my $r = Win32::OLE->new('Chilkat.ZipObject');
loads and returns good status.
my $exitcode = $r->ZipAFile("type.txt","Type.zip");
  2. or download this
    Set obj = CreateObject("Chilkat.ZipObject")
loads and returns good status.
Set rc = obj.ZipAFile("type.txt","Type.zip")