Easy Zip Compression using Windows XP

[UEZ]

I have a question regarding the "wait for finish" of zip process!

When you add a huge file / folder to a zip file using the internal zip (as posted in previous posts), how do you know when the file / folder to zip is finished?

As far as I know you need to wait in a loop until the zip process is ended otherwise it will be interrupted!

Here a snippet:

...

$obj_Copy = $obj_ZIP.NameSpace($zip_filename).CopyHere($obj_Folder.Items, $flag) ;add files to ZIP archive

While 1

If $obj_Copy has finished Then ExitLoop ;not AutoIt syntax

WEnd

UEZ

[TheSaint]

I have a question regarding the "wait for finish" of zip process!

When you add a huge file / folder to a zip file using the internal zip (as posted in previous posts), how do you know when the file / folder to zip is finished?

As far as I know you need to wait in a loop until the zip process is ended otherwise it will be interrupted!

Here a snippet:

...

$obj_Copy = $obj_ZIP.NameSpace($zip_filename).CopyHere($obj_Folder.Items, $flag) ;add files to ZIP archive

While 1

If $obj_Copy has finished Then ExitLoop ;not AutoIt syntax

WEnd

UEZ

I'm not an expert on this by any means, and I have never thrown a huge file at _ZipAdd, though I have done some largish ones on occasion. I always incorporate a Splash Screen during the process, and if I remember rightly, the splash stays visible a little longer, so I think you may have no problem. However, if you have posted because you did have a problem, then obviously I'm talking out of my arse. The PsaltyDS or one of the other contributors might have a better idea than me ... I just use it.

If you haven't yet tested your issue, maybe download my Create Zip Within program from here, and see if you can rush the program with sizeable folder content, and maybe end up with a failed zip.

[UEZ]

I'm not an expert on this by any means, and I have never thrown a huge file at _ZipAdd, though I have done some largish ones on occasion. I always incorporate a Splash Screen during the process, and if I remember rightly, the splash stays visible a little longer, so I think you may have no problem. However, if you have posted because you did have a problem, then obviously I'm talking out of my arse. The PsaltyDS or one of the other contributors might have a better idea than me ... I just use it.

If you haven't yet tested your issue, maybe download my Create Zip Within program from here, and see if you can rush the program with sizeable folder content, and maybe end up with a failed zip.

Currently I haven't a 100% solution but my idea was to check the thread which creates the zip file. Look here. During my tests it didn't exit the loop because thread count before wasn't equal with after zip task.

Checking file access isn't also not working 100%.

UEZ

[torels]

I have a question regarding the "wait for finish" of zip process!

When you add a huge file / folder to a zip file using the internal zip (as posted in previous posts), how do you know when the file / folder to zip is finished?

As far as I know you need to wait in a loop until the zip process is ended otherwise it will be interrupted!

Here a snippet:

...

$obj_Copy = $obj_ZIP.NameSpace($zip_filename).CopyHere($obj_Folder.Items, $flag) ;add files to ZIP archive

While 1

If $obj_Copy has finished Then ExitLoop ;not AutoIt syntax

WEnd

UEZ

You count hte files in the zip file

when there are theoldfiles+1 then the file has been added

go take a look at my udf!

[TheSaint]

Currently I haven't a 100% solution but my idea was to check the thread which creates the zip file. Look here. During my tests it didn't exit the loop because thread count before wasn't equal with after zip task.

Checking file access isn't also not working 100%.

UEZ

What you've done there, looks pretty good. I don't know if I can help, but I'll take a look when I can.

You may want to check out Torels zip UDF, it is a lot more current than the one here, and he's probably catered for what your asking. I think he's saying something along those lines anyway.

[UEZ]

You count hte files in the zip file

when there are theoldfiles+1 then the file has been added

go take a look at my udf!

I tried to understand your code already and asked you a question to understand the functionality of the zip function:

$obj_Copy = $obj_ZIP.NameSpace($zip_filename).CopyHere($obj_Folder.Items, $flag) <- this will start to add a folder to a zip file in the backround.

You can check the object $obj_Copy as long as it is running in the backround but when it is finished then your check will not work anymore (see bold line below).

Just an example from your code:

...

$files = _Zip_Count($hZipFile)

$oApp = ObjCreate("Shell.Application")

$oFolder = $oApp.NameSpace($hFolder)

$oCopy = $oApp.NameSpace($hZipFile).CopyHere($oFolder.Items, $flag)

$oFC = $oApp.NameSpace($hFolder).items.count

While 1

If _Zip_Count($hZipFile) = ($files+$oFC) Then ExitLoop

WEnd

...

Func _Zip_Count($hZipFile)

Local $DLLChk = _Zip_DllChk()

If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0) ;no dll

If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path

If Not FileExists($hZipFile) Then Return SetError(1, 0, 0) ;no zip file

$items = _Zip_List($hZipFile)

Return UBound($items) - 1

EndFunc ;==>_Zip_Count

...

Func _Zip_List($hZipFile)

local $aArray[1]

Local $DLLChk = _Zip_DllChk()

If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0) ;no dll

If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path

If Not FileExists($hZipFile) Then Return SetError(1, 0, 0) ;no zip file

$oApp = ObjCreate("Shell.Application")

$hList = $oApp.Namespace($hZipFile).Items

For $item in $hList

_ArrayAdd($aArray,$item.name)

Next

$aArray[0] = UBound($aArray) - 1

Return $aArray

EndFunc ;==>_Zip_List

I made some test and the access to the object (shell application) worked as long as the zip thread is running in the backround. When it is finished you will get an error message like ...Object referenced outside a "With" statement...

Maybe I'm to stupid to understand or thinking to much complicated...

You can say why don't you use my udf and ask silly questions but I want to understand how it is working...

UEZ

[UEZ]

I test it on my Vista x32:

#include <Zip.au3> ;[b]torels' UDF[/b]
Global $zip_file = "c:\Test.zip"
Global $source_folder = "C:\Windows\Inf\"
_Zip_Create($zip_file)
_Zip_AddFolder($zip_file , $source_folder )oÝ÷ ØȦ·¬°^méÛº+pYlµªí¶vØ^~]z»hk8©j·!÷¿»öÛºÜ!z{ayìmz¹ÚØky§ajǧuçméÈÂ)e­ç÷­+¢Z+¡÷ôÓM,¥©ì·)^

is is working properly!

I think I found why I get the error -> $zip = _Zip_Create($zip_file). I need a filehandle...

1 step closer... maybe I will understand now

UEZ

Edited December 16, 2008 by UEZ

[torels]

I test it on my Vista x32:

#include <Zip.au3> ;[b]torels' UDF[/b]
Global $zip_file = "c:\Test.zip"
Global $source_folder = "C:\Windows\Inf\"
_Zip_Create($zip_file)
_Zip_AddFolder($zip_file , $source_folder )oÝ÷ ØȦ·¬°^méÛº+pYlµªí¶vØ^~]z»hk8©j·!÷¿»öÛºÜ!z{ayìmz¹ÚØky§ajǧuçméÈÂ)e­ç÷­+¢Z+¡÷ôÓM,¥©ì·)^

is is working properly!

I think I found why I get the error -> $zip = _Zip_Create($zip_file). I need a filehandle...

1 step closer... maybe I will understand now

UEZ

yes... it should be supposedf to work with the first method to... I'll check that tonight when I get home

Anyway... new release coming out

[Skysnake]

It seems to appear for big size file adding

Anyway... thanx for effort.

[Skysnake]

This is truly cool. Will this be added to the Ultimate Scripts or similar?

Skysnake

[PsaltyDS]

This is truly cool. Will this be added to the Ultimate Scripts or similar?

Did you notice this topic is almost two years old? What did you mean by "Ultimate Scripts"?

[Skysnake]

Did you notice this topic is almost two years old? What did you mean by "Ultimate Scripts"?

Dear Most Venerable Penguin

I downloaded a file called 'Ultimate AutoIt Scripts Collection' which is very cool.

This is the Readme:

This is a compilation of AutoIt scripts created by the members on the forum.

Included so far:

1>Woods Mini Web Server (nfwu)

2>BenEditor(AutoItKing)

3>Sliding Launcher Toolbar(Valuater, Simucal, AutoItKing)

4>Yahtzee(th.meger)

5>Analog Clock(greenmachine,Credit - Larry (region funcs), neogia (anti-flicker, erasing old lines), Valuater (tray, transparency)

6>InvertorGame (James Bench)

7>Marfdaman's Mediaplayer(marfdaman)

8>AutoIt-123(Valuater)

9>Internet Explorer Automation UDF Library and IE-Builder for AutoIt3(Dale Hohm)

10>Emailer(JdeB and AutoItKing)

11>Small Downloader (Felix N.)

12>ProPlayer (npam)

So I figured that something as cool as this should be added to something as cool as the Ultimate Scripts Collection. Good things never go old ;-)

Does the answer of the newbie satisfy the master?

Skysnake

[PsaltyDS]

A link would have been more helpful, but I found it anyway: The best scripts I also note the last post in that topic was March 2007.

Unfortunately, good things DO get old (at least in the IT world). Great scripts cease to be great when they don't work with the current version anymore. As a compilation, it would have to be kept up to date or it becomes actually harmful.

For example, Dale Hohm's IE.au3 UDF has been part of AutoIt's standard distribution for years, and Valuater's AutoIt 1-2-3 tutorial is maintained in a topic where the latest version is always available. Are the versions you get from this collection that up to date?

This post by the originator of the "Ultimate Scripts" collection is particularly instructive (remember it's from 2007):

That "guy" is me. And I fixed that a while ago, but not in here though.

Actually, it'd be nice if someone else took this over for me. (the collection, not beneditor)I got a lot of other stuff to do.

Like web mastering, graphics design, school, etc.

I don't have that much time on my hands.

And I'm not up for devising a huge management operation for this thing.

So... any takers?

There were no takers.

Edited September 23, 2010 by PsaltyDS

[Melba23]

Skysnake ,

If you want to zip using the Windows zipfldr.dll library within AutoIt I would heartily recommend wraithdu's new Zip UDF.

M23

[Skysnake]

Thank you kindly, good sir

;-)

[RPrice]

For compressing larger file, sleep(5000) isn't long enough. But replacing Sleep(5000)

with

WinWaitActive("Compressing","",10000)

WinWaitClose("Compressing")

Seems to fix that problem.

[RPrice]

I just realised that the post I was replying to a post from 2006 so what about to post and my last post may be irrelevant. Also instead of the input box for selecting the zip, use

FileSaveDialog("Create Zip File","","PK-Zip(*.zip)|All(*.*)",0,"New Compressed (zipped) Folder.zip")

It makes it a little more user friendly.

[guinness]

Not to mention there is a newer UDF available by wraithdu.