I have managed to work out how to read a zip file in asp (VBScript) but cannot extract because (I think) the Extract method will not accept an argument for the baseDirectory (or anything else).
\r\nIf I could find a way to set the current directory in ASP that would be cool too but doesn't seem to be a way.
\r\nWhen I try to extract using entry.Extract() I get the message Ionic.Zip (0x80131500)
Cannot extract
Any ideas greatly appreciated
\r\nTo set the current directory, you can use WScript.Shell object and set the CurrentDirectory property. Not sure if this works in ASP. (I'm not an ASP expert).
\r\nWhy still writing in ASP? Why not write the page in ASP.NET? It would be simpler. anyway here's the VBSCript code.
\r\nSub listAndMaybeExtractZip()\r\n\r\n WScript.echo("")\r\n Dim zip\r\n WScript.echo("Instantiating another ZipFile object...")\r\n Set zip = CreateObject("Ionic.Zip.ZipFile")\r\n \r\n WScript.echo("Initialize (Read)...")\r\n zip.Initialize(filename)\r\n\r\n If Not (extractLocation = "") Then\r\n CreateExtractDirectory(extractLocation)\r\n\r\n Set objShell = CreateObject("Wscript.Shell")\r\n objShell.CurrentDirectory = extractLocation\r\n WScript.echo("listing and extracting entries...")\r\n else\r\n WScript.echo("listing entries...")\r\n End If\r\n\r\n For Each entry in zip\r\n WScript.echo(" " & entry.FileName)\r\n\r\n If Not (extractLocation = "") Then\r\n ext = Right(entry.FileName,4)\r\n If (ext = ".vbs") Then\r\n If Not (password = "") Then\r\n entry.Password = password\r\n End If\r\n ' extract into current directory\r\n entry.Extract()\r\n End If\r\n End If\r\n Next\r\n\r\n WScript.echo("Disposing...")\r\n zip.Dispose()\r\n\r\n WScript.echo("Done.")\r\nEnd Sub\r\n\r\n\r\n
Yeah there are probably good reasons to go to ASP.NET but to be honest I don't even know where to start and it is not my core business, so was hoping for a quick solution.
\r\nI have used the sample code you supply as the base but as I mentioned the entry.Extract method wants to put the file in the current directory and there is no way that I know of in ASP to set the default directory. I have tried using entry.Extract(baseDirectory) but I'm guessing that is not available in the COM implementation because I get invalid argument errors.
\r\nI can't find a reference for the error number so I am only making these assumptions based on other tests.
\r\nThanks
\r\n\r\n
", "PostedDate": "2009-08-13T16:42:11.483-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223209", "ThreadId": "65473", "Html": "
error 0x80131500 translates to "unknown error". It really isn't unknown, though. The problem with caling Extract() from COM is that there are multiple overloads of the Extract() method, and there is no way to determine which overload you are asking for, by parameter type alone.
\r\nIf you don't mind extracting all the files, you can call ZipFile.ExtractAll(). There's also an overload that lets you specify the path to extract to.
\r\n\r\n
", "PostedDate": "2009-08-13T19:20:12.68-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223231", "ThreadId": "65473", "Html": "
Thanks Cheeso. That works.
\r\nZipFile.ExtractAll(targetDirectory)
\r\nIt seems that the methods require 1 and only 1 parameter. If I try to use the extractExistingFile parameter it fails. Which means clearing the target Directory before each run. Not a problem really.
I would love to be able to use the ExtractSelectedEntries method as I only need to extract one file from each archive but that would require using at least 3 parameters (to set the targetDirectory) and it fails. Is it possible to pass more than one parameter some how, or some other workaround.
\r\nBut in the meantime I am up and going. Thanks again.
\r\n
", "PostedDate": "2009-08-13T20:30:12.71-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223261", "ThreadId": "65473", "Html": "
Calling the Extractall() method with the extractExistingFile param, runs into the same problem. There's an overload with the same number of parameters. That happened for lots of members, when I modified the design. See, originally there was a boolean true/false value for the overwrite parameter. If you passed false, it would throw an exception if there was an existing file. If you passed true, it would overwrite an existing file. There was no way to tell the library to NOT overwrite an existing file and also not throw an exception. So I created new methods, that accepted an enum parameter instead of a boolean. The enum allows more control over what to do with existing files.
\r\nBut, I couldn't remove the old members because that would cause older apps to fail to compile. So all the new methods (with the enum) have the same number of parameters as the older methods (with the boolean), and because of that, COM cannot call those methods. Well, not by their regular name anyway.
\r\nBut this is worth trying:: when .NET dynamically builds type libraries COM-callable wrappers, it appends _2, _3, and so on, to overloaded methods.
\r\nSo, can you try:
\r\nDim OverwriteSilently\r\n OverwriteSilently = 1\r\n zip.ExtractSelectedEntries_5 "name = TheFileYouWant.txt", Null, extractLocation, OverwriteSilently\r\n\r\n
", "PostedDate": "2009-08-13T23:39:05.193-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223440", "ThreadId": "65473", "Html": "
That's awesome. A little bit of testing and it's up and going.
\r\nNow that I know that trick I should be able to work around most issues (after guessing what the serial no for the overload method is)
\r\nI notice that ExtractAll creates the extractLocation folder if it doesn't exist where ExtractSelectedEntries doesn't. Not a problem just an observation.
\r\nAnd it is really quick I need to extract 1 file from many archives. I just ran a test through that took about a minute to extract files from 2350 archives and involved copying them and renaming, Brilliant!
\r\nThe last thing I noticed and this may be normal, but I had to destroy the object (Set objZip = Nothing) and recreate it each time before using a new archive or I got errors (not a valid zip file) after 2 iterations. I am using objZip.Dispose() but that just gets me one more iteration before it errors.
\r\nI'm thinking there maybe a lot of happy Classic ASP'ers out there when they find this can work for them.
", "PostedDate": "2009-08-14T04:38:02.403-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223451", "ThreadId": "65473", "Html": "Sounds like some good tips there. I'll modify the documentation for COM users on those things...
\r\nGlad its working for you.
\r\n", "PostedDate": "2009-08-14T05:25:55.397-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223903", "ThreadId": "65473", "Html": "
Hey, Cheeso - firstly thanks for a great library, i love it. And your support (i've been reading the discussions) is nothing short of outstanding.
\r\nAs this thread was chatting about COM Interop i was thinking how i can use the information in this thread. I use Vba quite a bit and still use VbScript\\asp - It would be great if you could make the the type libraries generated from TLBEXP.EXE show the mehods . So we could use this library in VBA projects, I'm thinking Access and Excel with itellisense. You can't add the dll currently as a reference, you can add the typelibrary (haven't tried using it as the public methods aren't shown on the classes. The intelisence may help with your overloaded method suggestion above.
\r\nI'm no expert or have no idea about the implications of doing this but it looks like every public methods need to implement an Interface and each public class implements the attribute ClassInterface(ClassInterfaceType.None)] - well thats what i was reading here http://www.15seconds.com/issue/040722.htm
\r\nPerhaps a future/dedicated version - a lot of apps get written in Access and Excel especially Excel as departmental automation tools, that go way beyond the applications purpose. They provide such a convienient well known interface, and everyones got them installed.
\r\nAnyway as i say i'm no expert, the idea may have implications on your design that you do not want to go down
\r\nMatt
\r\n\r\n
", "PostedDate": "2009-08-15T13:12:36.827-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223927", "ThreadId": "65473", "Html": "
Hey Matt,
\r\nIt's a good idea. The right thing to do. There are a couple of reasons why I haven't done that.
\r\nFirst, I'm lazy. Second, no one has really asked for the typelib, until you. Third, I don't really want to test it (which is really just another way of saying, "I'm lazy.")
\r\nBut I will make it an official workitem. And we'll see how much interest we get!
\r\n", "PostedDate": "2009-08-15T15:32:19.25-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223928", "ThreadId": "65473", "Html": "This discussion has been copied to a work item. Click here to go to the work item and continue the discussion.", "PostedDate": "2009-08-15T15:32:56.33-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]