1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
#Variables utilisées lors de l'archivage
my $dir=qw(c:\temp\Archive);
my $nom_archive=qw(C:\temp\Archive.zip);
my $erreur = 0;
#On commence par supprimer l'Archive
system("del",$nom_archive);
# create a zip file
##print "Creation du fichier archive=[$nom_archive]...\n";
my $zip = Archive::Zip->new() or $erreur=1;
if ($zip->addTree( $dir, $dir ) != AZ_OK ){
$erreur=1;
}
if ($zip->writeToFileNamed( $nom_archive ) != AZ_OK ) {
$erreur=1;
}
print "Fin de l'ecriture du fichier Archive avec le code [$erreur]!\n"; |
Partager