Select Code to Download

  my $zip = Archive::Zip->new();
$zip->addTree( 'C:\Users\Martin\Documents\Scripts\testfolder\\' );
   unless ( $zip->writeToFileNamed($BACKUPNAME) == AZ_OK ) {
       die 'write error';
   }

  my $zip = Archive::Zip->new();
$zip->addFile( 'C:\Users\Martin\Documents\Scripts\testfolder\file1.txt
+' );
   unless ( $zip->writeToFileNamed($BACKUPNAME) == AZ_OK ) {
       die 'write error';
   }

  my $zip = Archive::Zip->new();
$zip->addDirectory( 'C:\Users\Martin\Documents\Scripts\testfolder\\' )
+;
   unless ( $zip->writeToFileNamed($BACKUPNAME) == AZ_OK ) {
       die 'write error';
   }