ZIP and UNZIP with VBScript on Windows XP

[Guest]

Hi

Anyone know how to zip and unzip files with vbscript on windows XP ?

Thanks

 

[Jim Robin]

No, but you may wish to consider visiting www.tek-tips.com for your answer.

Jim

 

[Guest]

Windows does not expose any interface for zip that I know of. The closest
thing I can find is a Java interface.

Zip Your Data: Using the Zip Classes in the J# Class Libraries to ... :
http://msdn.microsoft.com/msdnmag/issues/03/06/ZipCompression/default.aspx

 

[Ayush]

[Alain Arsenault] wrote-:

Hi

Anyone know how to zip and unzip files with vbscript on windows XP ?

To UnZip files-
'----------------------------
pathToZipFile="C:\index.zip"
extractTo="C:\"

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

To Zip files-
'----------------------------
FolderToZip = "C:\CygWin"
zipFile = "C:\some.zip"

set sa = CreateObject("Shell.Application")
Set zip= sa.NameSpace(zipFile)
Set Fol=sa.NameSpace(FolderToZip)
zip.CopyHere(Fol.Items)
WScript.Sleep 2000 ' increase this if the folder is large
'----------------------------

Good Luck, Ayush.

 

[Guest]

Thanks

It's exactly what I was looking for. It is working very well.

[Alain Arsenault] wrote-:

Hi

Anyone know how to zip and unzip files with vbscript on windows XP ?

To UnZip files-
'----------------------------
pathToZipFile="C:\index.zip"
extractTo="C:\"

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

To Zip files-
'----------------------------
FolderToZip = "C:\CygWin"
zipFile = "C:\some.zip"

set sa = CreateObject("Shell.Application")
Set zip= sa.NameSpace(zipFile)
Set Fol=sa.NameSpace(FolderToZip)
zip.CopyHere(Fol.Items)
WScript.Sleep 2000 ' increase this if the folder is large
'----------------------------

Good Luck, Ayush.

 

[Ayush]

[Alain Arsenault] wrote-:

Thanks

It's exactly what I was looking for. It is working very well.

You're welcome Alain.



Good Luck, Ayush.