use Archive::Zip;
opendir(PREV,"C:/Documents and Settings/Sam_Gov/Desktop/test_file/");
while ($file = readdir(PREV)) {
if ($file = test_file1.txt)
{
$addfile = "C:/Documents and Settings/Sam_Gov/Desktop/test_file/" . $file;
$zipfile = "C:/Documents and Settings/Sam_Gov/Desktop/test_file/" . $file . ".zip";
$zip = Archive::Zip->new();
$zip->addFile( $addfile );
$zip->writeToFileNamed( $zipfile );
}
}
closedir(PREV);
i tried the above code to zip the file, when i try to unzip, it worked fine for me.