eval{zip_file()};
 if ($@){ print FILE &get_time.": zip failure : $@ \n";}

################################################################
# zipFile() zum Verzeichnisse zippen!
################################################################
sub zip_file
 {  
   my $zip= Archive::Zip->new();
      $zip->addTree($folder{'subdir'},'');
      $zip->writeToFileNamed($folder{'subdir'}.'.zip'); 
 }