Unzipping compressed files

I receive information via compressed files that I place in appropriate
folders to be unzipped and processed later. My VB program does much of the
processing for me once the files are manually unzipped one by one, but I
could use a bit of VB code that would unzip and then delete these original
compressed files. Can't seem to find anything on this subject. S.F.

mayayana
Wed May 16 09:42:06 CDT 2007

Do you mean VB or VBS? This is a VBS (VBScript)
group. If you mean VB then see the info-zip website.
(www.info-zip.org) They have DLLs usable from VB
for dealing with ZIP files. (But it's not exactly "a bit of
code" that's involved. :)

If you mean VBS your best option might be to use
a zip program command line function. You can use
the free 7-zip (www.7-zip.org). Or you can try here for v. 6.1
of PowerArchiver:
www.321download.com/LastFreeware/

(v. 6.1 was the last free version, yet does everything
that's actually useful to have done in a zip program...
without the bloat. P.A. 6.1 also has a full set of
command-line options.)


> I receive information via compressed files that I place in appropriate
> folders to be unzipped and processed later. My VB program does much of
the
> processing for me once the files are manually unzipped one by one, but I
> could use a bit of VB code that would unzip and then delete these original
> compressed files. Can't seem to find anything on this subject. S.F.
>

Ayush
Wed May 16 12:44:39 CDT 2007

[Stacy Finn]s message :
> I receive information via compressed files that I place in appropriate
> folders to be unzipped and processed later. My VB program does much of
> the processing for me once the files are manually unzipped one by one,
> but I could use a bit of VB code that would unzip and then delete these
> original compressed files. Can't seem to find anything on this
> subject. S.F.

pathToZipFile="C:\index.zip"
extractTo="C:\"


set sa = CreateObject("Shell.Application")
set filesInzip=sa.NameSpace(pathToZipFile).items
sa.NameSpace(extractTo).CopyHere(filesInzip)


To delete the Zip file, use FSO Delete method


Good Luck, Ayush.
--
Script Center : http://microsoft.com/technet/scriptcenter/default.mspx

Stacy
Thu May 17 14:40:53 CDT 2007

Thank you

Ayush
Thu May 17 17:14:09 CDT 2007

[Stacy Finn]s message :
> Thank you

You're welcome.

Good Luck, Ayush.
--
Scripting- your first steps :
http://www.microsoft.com/technet/scriptcenter/topics/beginner/firststeps.mspx

D
Thu May 17 17:39:51 CDT 2007

Hi Ayush,

Is the zipping up process as easy as this too? Do you have another quick
example?

Thanks,
Dave.



"Ayush" <"ayushmaan.j[aatt]gmail.com"> wrote in message
news:%23WQKyR%23lHHA.3704@TK2MSFTNGP02.phx.gbl...
> [Stacy Finn]s message :
>> I receive information via compressed files that I place in appropriate
>> folders to be unzipped and processed later. My VB program does much of
>> the processing for me once the files are manually unzipped one by one,
>> but I could use a bit of VB code that would unzip and then delete these
>> original compressed files. Can't seem to find anything on this subject.
>> S.F.
>
> pathToZipFile="C:\index.zip"
> extractTo="C:\"
>
>
> set sa = CreateObject("Shell.Application")
> set filesInzip=sa.NameSpace(pathToZipFile).items
> sa.NameSpace(extractTo).CopyHere(filesInzip)
>
>
> To delete the Zip file, use FSO Delete method
>
>
> Good Luck, Ayush.
> --
> Script Center : http://microsoft.com/technet/scriptcenter/default.mspx

Ayush
Thu May 17 17:51:30 CDT 2007

[D.R.]s message :
> Hi Ayush,

> Is the zipping up process as easy as this too? Do you have another quick
> example?


http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/e3abc58943aa16f1/cb811bfe96217084

Good Luck, Ayush.
--
Scripting- your first steps :
http://www.microsoft.com/technet/scriptcenter/topics/beginner/firststeps.mspx

D
Thu May 17 18:48:11 CDT 2007

Thank you Ayush.


"Ayush" <"ayushmaan.j[aatt]gmail.com"> wrote in message
news:OnzEBiNmHHA.4624@TK2MSFTNGP04.phx.gbl...
> [D.R.]s message :
>> Hi Ayush,
>
>> Is the zipping up process as easy as this too? Do you have another quick
>> example?
>
>
> http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/e3abc58943aa16f1/cb811bfe96217084
>
> Good Luck, Ayush.
> --
> Scripting- your first steps :
> http://www.microsoft.com/technet/scriptcenter/topics/beginner/firststeps.mspx