I'm trying to use the Perl Module Archive::Zip and I'm having a
little difficulty understanding it. After reading the pod doc for
Archive::Zip I've written the following test:
use Archive::Zip;
my $dir = "C:/tmp2";
my $zip = Archive::Zip->new();
my $member = $zip->addDirectory('$dir');
$member->desiredCompressionMethod(COMPRESSION_DEFLATED);
$member = $zip->addFile('blah.txt');
die 'write error' if $zip->writeToFileNamed('foobar.zip') != AZ_OK;
This doesn't seem to work. I get a zip file (foobar.zip) but it's empty.
If I change blah.txt to C:/tmp2/blah.txt then I can create the zipfile
foobar.zip
with the file blah.txt in it. Ultimately, I'd like to be able to
specify a directory
and a wild card and suck up all the files in the dir recursively.
Something
like this (using the system cmd);
system("zip.exe -r foobar.zip C:/somedir");
Any help is much appreciated.
Cheers,
Carter.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
