Salut,


J'utilise la librairie Archive::Zip pour faire un backup de fichier assez volumineux. J'arrive bien à zipper un fichier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
 
my $zip = Archive::Zip->new();
$member = $zip->addFile('test.pl');
die 'write error' if $zip->writeToFileNamed( 'test.zip' ) != AZ_OK;
Mais je n'arrive pas à zipper un dossier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
 
my $zip = Archive::Zip->new();
 
my $member = $zip->addDirectory('d:\\test\\test\\');
 die 'write error' if $zip->writeToFileNamed( 'test.zip' ) != AZ_OK;
Si qqun aurait une idée.
Merci d'avance...

PS : je développe sous win2k