The Easiest Way to Create ZIP File in VFP...(2 lines only) 10

[andreateh]

This is my first time post tips. Hope it can help your guys. Please feel free to comment, since it is a idea from the vbscript forum.

Download File Below (Freeware):

Xzip.dll

From

http://www.xstandard.com/

(navigate to "products" and then scroll down and look for their zip component)

or

http://www.xstandard.com/page.asp?p...6763A7&s=D18615A1-458B-4074-BBD5-81AB02E2E042

1.After download the file.Follow Link Below to Read the Installation Instruction :

http://www.xstandard.com/page.asp?p...6763A7&s=283A4B9F-77DB-406F-8CC5-0C50DB470204

2. Now u can create a zip file in VFP with line below :

oZip = CreateObject("XStandard.Zip")
oZip.Pack "C:\Temp\*.jpg", "C:\Temp\images.zip"

3. Unzip a zipfile with line below :

oZip = CreateObject("XStandard.Zip")
oZip.UnPack "C:\Temp\images.zip", "C:\Temp\"

Idea come from a thread from :
zip folders
thread329-715047
in the VbScript Forum.

 

[Nifrabar]

Hi,
The DLL is called xGzip.dll
I could do registration without problems
Following your instructions my try ends up with errormessage: Classdefinition XgStandard.Zip is not found.
-Bart

 

[andreateh]

Oh.. i see.. U have download the wrong one. The xGzip.dll in under "GZip Component" However the Xzip.dll is under the "Zip Component".

You may try this link :

http://www.xstandard.com/page.asp?p=C9891D8A-5390-44ED-BC60-2267ED6763A7

 

[andreateh]

If you plan to use Gzip. You may try line below for Gzipped:

objTAR = CreateObject("XStandard.TAR")
objGZip = CreateObject("XStandard.GZip")
objTAR.Pack "C:\Temp\golf.jpg", "C:\Temp\images.tar"
objTAR.Pack "C:\Temp\racing.gif", "C:\Temp\images.tar"
objGZip.Compress "C:\Temp\images.tar", "C:\Temp\images.tar.gz"

To UnGzip :

objGZip = Server.CreateObject("XStandard.GZip")
objGZip.Decompress "C:\Temp\images.tar.gz", "C:\Temp"

 

[craigsboyd]

andreateh,

You should consider making a FAQ out of this...the ability to make ZIP, TAR, and GZ files is pretty useful stuff. Star to you!

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[Nifrabar]

andreateh,
thanks,
I tried your original and found a slight error in your example:
oZip.Pack "C:\Temp\*.jpg", "C:\Temp\images.zip"

should be :
oZip.Pack ( "C:\Temp\*.jpg", "C:\Temp\images.zip" )

further it's ok !
a real neat way to zip/unzip !

thanks for sharing your knowledge and star from me too

-Bart

 

[andreateh]

Will try to write the FAQ about this soon.

 

[torturedmind]

andrea,

ei, tried it with a lil tweaking n i love it! simple and yet very functional. here's another star from me to you.

kilroy
philippines
"and that's what we call creativity..."

 

[andreateh]

torturedmind ,
Thanks for the star.. can you share out that what have been tweak. I found out that if :

oZip = CreateObject("XStandard.Zip")
oZip.Pack(

"C:\Temp\*.*"

, "C:\Temp\images.zip")

All files and subfolder in "C:\TEMP", like "c:\TEMP\X","c:\temp\x\y" will be zip.Same as the -r in pkzip

But,

oZip = CreateObject("XStandard.Zip")
oZip.Pack(

"C:\Temp\fg*.*"

, "C:\Temp\images.zip")

Only zip all the file start with fg in the current folder.

and line below may not work as what u expected (a dummy file will be create in the zip file):

oZip = CreateObject("XStandard.Zip")
oZip.Pack(

"C:\Temp\fg*.TXT"

, "C:\Temp\images.zip")

When u open the zip file a dummy file fg*.txt is created in the images.zip

 

[foxwizard]

andreateh,

Hmmmm.... I guess you deserve another star from me!


Bren
VFP - Philippines

 

[machele]

It's posible to see the progress of ziping and unziping?
Good work
Marius

 

[machele]

I try to register dll in win98se but it's not working.
Why?
Thank you

 

[MirekZvolsky]

Win98SE:

First I want say that I have no problem to register xstandard-zip on Win98SE.

However in other fox forum (not in eng language), someone said about same problem, as you have. Answer from other person was, that not correct support for ATL (MS-Active Template Library) is installed.

So I think, you can try install all windows updates from

http://v4.windowsupdate.microsoft.com/cs/default.asp

to have proper support.

See faqs on

http://support.microsoft.com/defaul...port/kb/articles/q166/4/80.asp&NoWebContent=1

and find: Q. What are the reasons an ATL server might fail to register?

On my Win98 machine ATL.DLL has date 07/19/2002 and OLEAUT32.DLL 06/08/2000.

Please, give me feedback, if Windows update has repaired the problem. Because I want have a good ZIP solution, which I can distribute to different Win systems.

Or, you can try MoleZip freeware, as I write in another thread today.

 

[MirekZvolsky]

Installation problem on Win98 - solution:

The problem causes missing ATL.DLL.

You can download it for example from

http://www.mts.com/nvd/programs/atl.dll

as described in

http://www.mts.com/nvd/patches.htm

You should place it into windows\system folder and run "regsvr32 atl.dll" to register it.

 

[manitoba]

I tried the latest version of the component and the "dummy file fg*.txt" bug is fixed.

 

[tilltek]

Fantastic.
If I could give 5 stars I would do it.
Take one star anyway.
Ken F

 

[rkolva]

I just downloaded and tried the zip dll and while it's certainly easy to use I found that it didn't compress the files nearly as much as PKZip did. Perhaps there is something I'm missing.

I used 10 files, including a VFP exe, totaling about 3.8 MB

XStandard got it down to about 2.6 MB
PKZip to it down to about 800 KB

That's a pretty big difference.

Ralph