All Forums >> [Scripting] >> ASP >> NameSpace doesn't like zip file in ASP Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!
I have a vbscript that creates an empty zip file and then loads a couple of files into it for eventual download. As a stand-alone vbscript it works fine but when I add the code to an ASP page the code chokes on the NameSpace object. So I can create the empty zip file but I can't add any files to it.
Here's the code: Dim zipFile, objFSO, objTxt, objApp zipFile = "D:\ArcIMS\Output\SavedMapImages\aaa.zip" 'The path and name of your zip file
'Create an empty ZIP file Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTxt = objFSO.OpenTextFile(zipFile, 2, True) objTxt.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, Chr(0)) objTxt.Close
'Copy the files into the ZIP file Set objApp = Server.CreateObject("Shell.Application") objApp.NameSpace(zipFile).CopyHere("D:\ArcIMS\Output\SavedMapImages\aaa.png ") objApp.NameSpace(zipFile).CopyHere("D:\ArcIMS\Output\SavedMapImages\aaa.pgw ")
It's the NameSpace object in the last two lines that throw errors. And it's the zip file itself that causes the error; I don't get an error if I use a basic folder path.
Could I call a VBScript file from the VBScript within the ASP file to execute the code that adds files to the zip file? Might that get around the security issue?
If not, do you have any suggestions how I might add files to an empty zip file via ASP? That's my end goal.
In my experience, its always been safest to keep files in relative locations instead of complete paths on the server. Also, any time you are doing something with file locations, try to use MapPath
Thanks for the above posts. I ended up using XZip as my zip utility (http://xstandard.com/en/documentation/xzip/). Just install the dll somewhere and register it using regsvr32.
Below is a code snippet for anyone interested. It's a working copy (but it does work!). I still have to clean it up using relative paths and MapPath.
'Initialize stuff for zip file Dim folderPath, zipFilePath, fsoZipFile, fsoTxtFile, objZip folderPath = "D:\wherever\" 'The path to the files to be zipped zipFilePath = folderPath + "myzipfile.zip" 'The path and name of the zip file
'Create an empty ZIP file Set fsoZipFile = Server.CreateObject("Scripting.FileSystemObject") Set fsoTxtFile = fsoZipFile.OpenTextFile(zipFilePath, 2, True) fsoTxtFile.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, Chr(0)) fsoTxtFile.Close
'Copy files into the ZIP file Set objZip = Server.CreateObject("XStandard.Zip") objZip.Pack folderPath + "filename.png", zipFilePath objZip.Pack folderPath + "filename.pgw", zipFilePath
All Forums >> [Scripting] >> ASP >> NameSpace doesn't like zip file in ASP 
Printable Version
NameSpace doesn't like zip file in ASP - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread