I have been trying various methods, ProgressBar, Flashing Text etc. to show some
form of Progress whilst files are bieng added to a Zip Archive using Win32::ZIP,
alas no luck even after some inspired help from the list. As one last effort I
am trying to display an AVI that I created but again nothing, can anyboby tell
me 1. What am I doing wrong or 2. Is this posible with the Win32::ZIP package. I
have also tried While loops and timers etc.
, code below:
if (-e $network) {
if (-e $dirname) {
if (-e $archive) {
#----------------------
# Update the Archive
#----------------------
my $zipobj=new
Win32::Zip(File=>"$archive",CompressionLevel=>7,Unattended=>Yes);
$options={'DirNames'=>1,'RecurseDirs'=>1,'HiddenFiles'=>1,
'Update'=>1};
$zipobj->SetAddOptions($options);
undef $options;
$zipobj->AddFilesToList(["$source"]);
$zipobj->EnableEvents;
$status->Show();
$status->AddAnimation(-autoplay => 1,
-transparent => 1,
-left => 0,
-top => 55,);
$status->AddAnimation->Open("C:\\DATA\\PERLSC~1\\PROGRESS.AVI");
$status->AddAnimation->Play();
$zipobj->Add();
$status->Hide();
$zipobj->DisableEvents;
$zipobj->GetStatistics([EMAIL PROTECTED]);
printf DATAPLACE "FileName Date/Time Compression\n";
for($i=0;$i<=$#StatInfo;$i++) {
printf DATAPLACE "$StatInfo[$i]->{FileName}
$StatInfo[$i]->{DateTime} $StatInfo[$i]->{Ratio}\n";
undef $zipobj;
}
close DATAPLACE;
} else {
Many thanks
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
