bonjour et merci de me venir en aide
voici mon bout de code:
#!/usr/bin/perl
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
$ado = "C:/gvar/adonis/";
# Create a Zip file
my $zip = Archive::Zip -> new();
# Add a directory
$zip -> addTree('$ado');
# Save the Zip file, Save the world
unless ( $zip -> writeToFileNamed('C:/gvar/adonis.zip') == AZ_OK ){
die 'write error';
}
le problème est qu'il crée le fichier.zip mais malheureusement il est vide et ne contient pas le dossier voulu
Partager