Help for this page

Select Code to Download


  1. or download this
    sub New {
return new packagename;
}
  2. or download this
    Set obj = CreateObject("My.ZipObject")
Set objr = obj.New

Set rc = objr.zipAFile("type.txt","Type.zip")
  3. or download this
    my $r = Win32::OLE->new('My.ZipObject');
print "\nZip DLL error code " . Win32::OLE->LastError();
...
my $oo = $r->new;
my $exitcode = $oo->zipAFile("type.txt","Type.zip");