ZIP files

Hi,

Do you know how to use windowsXP library to make ZIP programaticly from
Foxpro?

Thanks

Fred
Tue May 10 10:18:27 CDT 2005

While the files are there to create and manipulate ZIP files in XP,
Microsoft says we're not licensed to use those routines in our own code.
There was a discussion about this on the UT (www.universalthread.com) about
a year or so ago.

I use a free 3rd party .DLL from www.xstandard.com named XZIP.

--
Fred
Microsoft Visual FoxPro MVP


<mjoncas@foxprostudio.com> wrote in message
news:SM3ge.115567$2g1.832777@weber.videotron.net...
> Hi,
>
> Do you know how to use windowsXP library to make ZIP programaticly from
> Foxpro?
>
> Thanks
>
>
>

Olaf
Tue May 10 11:05:49 CDT 2005

> Microsoft says we're not licensed to use those routines in our own code.
Hmm, couldn't one use ole automation of the Windows Explorer
("Shell.Explorer" or "Shell.Application") and somehow "send" files to
a "Zip folder"? Would that be illegal?

Bye, Olaf.

Esparta
Tue May 10 11:32:46 CDT 2005

Yes, it is. The Windows XP zip function is reserved only to Explorer
use. Some time ago the person who post the automation sample was
required by the company contrated by Microsoft (I forgot the name) to
unpublush that.

Olaf Doschke wrote:
>>Microsoft says we're not licensed to use those routines in our own code.
>
> Hmm, couldn't one use ole automation of the Windows Explorer
> ("Shell.Explorer" or "Shell.Application") and somehow "send" files to
> a "Zip folder"? Would that be illegal?
>
> Bye, Olaf.
>
>

--
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/
http://www.espartha.com/blog/

TonySper
Tue May 10 11:59:17 CDT 2005

Fred,
I downloaded that DLL and some examples. Can you give me an example of
how to use this DLL in a Visual FoxPro program?? How would you call
the DLL and enter the files to zip??
TonySper

"Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
news:OkiQHOXVFHA.2540@tk2msftngp13.phx.gbl...
While the files are there to create and manipulate ZIP files in XP,
Microsoft says we're not licensed to use those routines in our own
code.
There was a discussion about this on the UT (www.universalthread.com)
about
a year or so ago.

I use a free 3rd party .DLL from www.xstandard.com named XZIP.

--
Fred
Microsoft Visual FoxPro MVP


<mjoncas@foxprostudio.com> wrote in message
news:SM3ge.115567$2g1.832777@weber.videotron.net...
> Hi,
>
> Do you know how to use windowsXP library to make ZIP programaticly
> from
> Foxpro?
>
> Thanks
>
>
>

Fred
Tue May 10 20:18:37 CDT 2005

Register the control as per their instructions.

oXZip = CREATEOBJECT("XStandard.zip")
nErrs = 0
nFiles = ADIR(aTxts,"*.txt")
FOR xx=1 TO nFiles
oXZip.Pack(aFiles[xx,1],"x:\path\zipname.zip")
IF oXZip.ErrorCode<>0
nErrs = nErrs + 1
? TRANSFORM(oXZip.ErrorCode),oXZip.ErrorDescription
ENDIF
ENDFOR
? "Errors = ",nErr

--
Fred
Microsoft Visual FoxPro MVP


"TonySper" <tsperduti@bellsouth.net> wrote in message
news:FL5ge.14487$0i3.3704@bignews3.bellsouth.net...
> Fred,
> I downloaded that DLL and some examples. Can you give me an example of
> how to use this DLL in a Visual FoxPro program?? How would you call
> the DLL and enter the files to zip??
> TonySper
>
> "Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
> news:OkiQHOXVFHA.2540@tk2msftngp13.phx.gbl...
> While the files are there to create and manipulate ZIP files in XP,
> Microsoft says we're not licensed to use those routines in our own
> code.
> There was a discussion about this on the UT (www.universalthread.com)
> about
> a year or so ago.
>
> I use a free 3rd party .DLL from www.xstandard.com named XZIP.
>
> --
> Fred
> Microsoft Visual FoxPro MVP
>
>
> <mjoncas@foxprostudio.com> wrote in message
> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>> Hi,
>>
>> Do you know how to use windowsXP library to make ZIP programaticly
>> from
>> Foxpro?
>>
>> Thanks
>>
>>
>>
>
>
>

Altman
Wed May 11 10:55:58 CDT 2005

Is that zip able to be licensed for commercial use? I cannot find any
licensing for it online?


"Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
news:OkiQHOXVFHA.2540@tk2msftngp13.phx.gbl...
> While the files are there to create and manipulate ZIP files in XP,
> Microsoft says we're not licensed to use those routines in our own code.
> There was a discussion about this on the UT (www.universalthread.com)
> about a year or so ago.
>
> I use a free 3rd party .DLL from www.xstandard.com named XZIP.
>
> --
> Fred
> Microsoft Visual FoxPro MVP
>
>
> <mjoncas@foxprostudio.com> wrote in message
> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>> Hi,
>>
>> Do you know how to use windowsXP library to make ZIP programaticly from
>> Foxpro?
>>
>> Thanks
>>
>>
>>
>
>

Mike
Wed May 11 12:03:05 CDT 2005

I believe you can only Unzip the files and not zip them, at least I haven't
found out how. But here is how to unzip them
cFileZip = "C:\temp\D401001F.ZIP"
cDestination = "c:\temp\"

o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cFileZip).items
o.NameSpace(cDestination).copyhere(ofile)
ENDFOR

<mjoncas@foxprostudio.com> wrote in message
news:SM3ge.115567$2g1.832777@weber.videotron.net...
> Hi,
>
> Do you know how to use windowsXP library to make ZIP programaticly from
> Foxpro?
>
> Thanks
>
>
>

TonySper
Wed May 11 16:10:34 CDT 2005

Fred,
Thanks. I just received this from xstandard how they use the zip and
unzip.


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

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

Regards,
-Jon
XStandard Support

Works great. To zip multiple files just repeat the oZip.Pack line and
send the file to the same image.zip.
TonySper




"Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
news:eFpVcdcVFHA.3636@TK2MSFTNGP14.phx.gbl...
Register the control as per their instructions.

oXZip = CREATEOBJECT("XStandard.zip")
nErrs = 0
nFiles = ADIR(aTxts,"*.txt")
FOR xx=1 TO nFiles
oXZip.Pack(aFiles[xx,1],"x:\path\zipname.zip")
IF oXZip.ErrorCode<>0
nErrs = nErrs + 1
? TRANSFORM(oXZip.ErrorCode),oXZip.ErrorDescription
ENDIF
ENDFOR
? "Errors = ",nErr

--
Fred
Microsoft Visual FoxPro MVP


"TonySper" <tsperduti@bellsouth.net> wrote in message
news:FL5ge.14487$0i3.3704@bignews3.bellsouth.net...
> Fred,
> I downloaded that DLL and some examples. Can you give me an example
> of
> how to use this DLL in a Visual FoxPro program?? How would you call
> the DLL and enter the files to zip??
> TonySper
>
> "Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
> news:OkiQHOXVFHA.2540@tk2msftngp13.phx.gbl...
> While the files are there to create and manipulate ZIP files in XP,
> Microsoft says we're not licensed to use those routines in our own
> code.
> There was a discussion about this on the UT
> (www.universalthread.com)
> about
> a year or so ago.
>
> I use a free 3rd party .DLL from www.xstandard.com named XZIP.
>
> --
> Fred
> Microsoft Visual FoxPro MVP
>
>
> <mjoncas@foxprostudio.com> wrote in message
> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>> Hi,
>>
>> Do you know how to use windowsXP library to make ZIP programaticly
>> from
>> Foxpro?
>>
>> Thanks
>>
>>
>>
>
>
>

Fred
Wed May 11 20:39:52 CDT 2005

I have no idea. We're not distributing the apps that use it for sale, just
in house applications.

--
Fred
Microsoft Visual FoxPro MVP


"Altman" <NotGiven@SickOfSpam.com> wrote in message
news:ex4stHkVFHA.1052@TK2MSFTNGP10.phx.gbl...
> Is that zip able to be licensed for commercial use? I cannot find any
> licensing for it online?
>
>
> "Fred Taylor" <ftaylor@mvps.org!REMOVE> wrote in message
> news:OkiQHOXVFHA.2540@tk2msftngp13.phx.gbl...
>> While the files are there to create and manipulate ZIP files in XP,
>> Microsoft says we're not licensed to use those routines in our own code.
>> There was a discussion about this on the UT (www.universalthread.com)
>> about a year or so ago.
>>
>> I use a free 3rd party .DLL from www.xstandard.com named XZIP.
>>
>> --
>> Fred
>> Microsoft Visual FoxPro MVP
>>
>>
>> <mjoncas@foxprostudio.com> wrote in message
>> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>>> Hi,
>>>
>>> Do you know how to use windowsXP library to make ZIP programaticly from
>>> Foxpro?
>>>
>>> Thanks
>>>
>>>
>>>
>>
>>
>
>

Leonid
Fri May 13 04:37:30 CDT 2005

Ziping is almost the same, the only difference is you must first create
empty zip file:

cFileZip = "C:\temp2\D401001F.ZIP"
cSource = "c:\temp1\"
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

Leonid


"Mike Gagnon" <mgagnon23@hotmail.com> wrote in message
news:uw1V0ukVFHA.3944@TK2MSFTNGP10.phx.gbl...
>I believe you can only Unzip the files and not zip them, at least I haven't
>found out how. But here is how to unzip them
> cFileZip = "C:\temp\D401001F.ZIP"
> cDestination = "c:\temp\"
>
> o=CREATEOBJECT("shell.application")
> FOR EACH ofile IN o.NameSpace(cFileZip).items
> o.NameSpace(cDestination).copyhere(ofile)
> ENDFOR
>
> <mjoncas@foxprostudio.com> wrote in message
> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>> Hi,
>>
>> Do you know how to use windowsXP library to make ZIP programaticly from
>> Foxpro?
>>
>> Thanks
>>
>>
>>
>
>

TonySper
Fri May 13 16:17:35 CDT 2005

So much easier using xzip.dll. Just have to register the DLL and all
works fine.
TonySper

"Leonid" <leonid@NOgradaSPAM.lv> wrote in message
news:%23d8ui95VFHA.1152@tk2msftngp13.phx.gbl...
Ziping is almost the same, the only difference is you must first
create
empty zip file:

cFileZip = "C:\temp2\D401001F.ZIP"
cSource = "c:\temp1\"
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

Leonid


"Mike Gagnon" <mgagnon23@hotmail.com> wrote in message
news:uw1V0ukVFHA.3944@TK2MSFTNGP10.phx.gbl...
>I believe you can only Unzip the files and not zip them, at least I
>haven't
>found out how. But here is how to unzip them
> cFileZip = "C:\temp\D401001F.ZIP"
> cDestination = "c:\temp\"
>
> o=CREATEOBJECT("shell.application")
> FOR EACH ofile IN o.NameSpace(cFileZip).items
> o.NameSpace(cDestination).copyhere(ofile)
> ENDFOR
>
> <mjoncas@foxprostudio.com> wrote in message
> news:SM3ge.115567$2g1.832777@weber.videotron.net...
>> Hi,
>>
>> Do you know how to use windowsXP library to make ZIP programaticly
>> from
>> Foxpro?
>>
>> Thanks
>>
>>
>>
>
>

clooney
Thu Jan 12 11:29:12 CST 2006


i know that i am in the false forum. i register the XZip.dll and want to
unzip with a vbs-script. i got no error, but also no result. could you
please help me?

Set objZip = Wscript.CreateObject("XStandard.Zip")
objZip.UnPack "D:\Temp\daten20060112.zip", "C:\Temp\"
Set objZip = Nothing

I try also with asp,
Set objZip = Server.createObject("XStandard.Zip")
the same

thanks for your help and best regards,

andy



--
clooney
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Fred
Thu Jan 12 20:33:37 CST 2006

Before you release it, does ibjZip.ErrorCode tell you anything? It should
be 0 if there were no errors. If it's non-zero, then
objZip.ErrorDescription should give you some info.

--
Fred
Microsoft Visual FoxPro MVP


"clooney" <clooney.21jsy9@mail.codecomments.com> wrote in message
news:clooney.21jsy9@mail.codecomments.com...
>
> i know that i am in the false forum. i register the XZip.dll and want to
> unzip with a vbs-script. i got no error, but also no result. could you
> please help me?
>
> Set objZip = Wscript.CreateObject("XStandard.Zip")
> objZip.UnPack "D:\Temp\daten20060112.zip", "C:\Temp\"
> Set objZip = Nothing
>
> I try also with asp,
> Set objZip = Server.createObject("XStandard.Zip")
> the same
>
> thanks for your help and best regards,
>
> andy
>
>
>
> --
> clooney
> ------------------------------------------------------------------------
> Posted via http://www.codecomments.com
> ------------------------------------------------------------------------
>