|
|
Post by Guilect on Jun 4, 2008 8:39:26 GMT -5
'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
'----------------------------
|
|
