I ran the MSI file to install all the DotNetZip files. When I executed this line:
\r\n\r\n
Set zip = CreateObject("Ionic.Zip.ZipFile")
\r\n\r\nin my VB Script, I got this error:
\r\nActiveX component can't create object 'Ionic.Zip.ZipFile'
\r\nIs DotNetZip compatiable with 64-bit Windows Server 2008?
", "PostedDate": "2009-07-17T19:24:26.307-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213293", "ThreadId": "62831", "Html": "yes. What version of .NET do you have installed? Have you verified that the COM object is installed and registered properly?
\r\ncan you use DotNetZip from a .NET program?
", "PostedDate": "2009-07-17T20:46:20.843-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213326", "ThreadId": "62831", "Html": ".NET is 3.5 SP1.
\r\nThe Ionic.Zip.dll is installed in D:\\Program Files (x86)\\Dino Chiesa\\DotNetZip Runtime v1.8, but I don't know how to check if it is registered correctly.
\r\nI haven't tried a .NET program yet.
", "PostedDate": "2009-07-18T01:25:13.523-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213382", "ThreadId": "62831", "Html": "If DotNetZip is registered, then in the registry you'll find a key under this name: HKEY_CLASSES_ROOT\\Ionic.Zip.ZipFile\\CLSID .
\r\nThe value should be {7621E9CE-6878-36C6-9E03-49CCA5E3291C}.
\r\n", "PostedDate": "2009-07-18T07:51:37.573-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213386", "ThreadId": "62831", "Html": "
The other thing you can try is using Powershell to create the zipfile. Powershell is a newer scripting environment for Windows, the philosophical replacement for vbscript. It's included on Windows Server 2008. It does not use COM.
\r\nYou can find examples here:
\r\nhttp://dotnetzip.codeplex.com/Wiki/View.aspx?title=PS-Examples
", "PostedDate": "2009-07-18T08:00:08.773-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213396", "ThreadId": "62831", "Html": "It is registered, but the CLSID is {5312682D-2E00-3D2B-8C80-50AB392B0517}, which is different from yours. Does it matter?
", "PostedDate": "2009-07-18T09:47:06.373-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213452", "ThreadId": "62831", "Html": "no, it shouldn't matter.
", "PostedDate": "2009-07-18T16:10:37.06-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213464", "ThreadId": "62831", "Html": "Here is what I know so far. I have the following script executed and it failed with the error - Can't create object. I used the Process Monitor to trace and found out HKCR\\CLSID\\{5312682D-2E00-3D2B-8C80-50AB392B0517} was being opened (RegOpenKey), but the result is "NAME NOT FOUND." It means the DLL was registered and the VB Script could find it from the registry, but failed to locate the actual DLL.
\r\nOption Explicit
dim zip
Set zip = CreateObject("Ionic.Zip.ZipFile")
WScript.Quit
Could you suggest where I should look next? Thank you.
", "PostedDate": "2009-07-18T17:33:04.997-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213545", "ThreadId": "62831", "Html": "What I would suggest is to re-register the assembly then.
\r\n", "PostedDate": "2009-07-19T07:21:18.74-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213588", "ThreadId": "62831", "Html": "
It is working after registering the asssembly. Thank you so much.
\r\nNow I have another problem. If I call zip.AddFile fullFileName, it works. But if I call zip.AddFile fullFileName, "", an error saying "Wrong number of arguments or invalid property assignment." What did I do wrong?
\r\n\r\n
I don't know why it would not have been registered when you installed it. ?? But I'm glad that part is working now.
\r\nOn the next problem - with COM interop. I don't know why that is happening. ? I guess I hadn't tested that overload. It looks to me like it should work.
\r\nAs a workaround, You can rename the entry after you've added it.
\r\n", "PostedDate": "2009-07-19T15:31:34.99-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213625", "ThreadId": "62831", "Html": "
Sorry, I don't know how to rename the entry? Could you give me some instructions? Thank you.
", "PostedDate": "2009-07-19T15:39:21.28-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213638", "ThreadId": "62831", "Html": "| \r\n sure. \r\n Dim entry\r\n Set entry = zip1.AddFile ("c:\\directory\\FileToBeAdded.txt")\r\n ' remove the directory structure for the just-added entry\r\n entry.FileName = "FileToBeAdded.txt"\r\n\r\n\r\nYou could achieve the same effect by changing the current directory to be the one that contains the file to be zipped, before adding it. \r\n | \r\n
Sorry not to state clearly what I want to do. I want to pass an empty string to AddFile as a second parameter so that the the folder structure won't be kept. Changing the entry's name won't do that, will it?
", "PostedDate": "2009-07-20T10:38:07.517-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "213920", "ThreadId": "62831", "Html": "| \r\n Yes, setting the FileName on the entry will implicitly set the directory structure for that entry. If there is a directory in the filename, then it is used when saving that entry into the zip file. If there is no directory - in other words there is no backslash (or forward slash), then the entry will be stored in the "top level" directory in the zip archive. \r\nI also found out that with VBScript and COM clients, you will not be able to call the overloaded AddFile() method, the one that takes two strings. This is not something I will be able to fix in the library. It's a consequence of COM interop. \r\nSo, the best way to do what you want is to set the FileName on the entry after adding it to the archive. \r\nps: I edited the code above to be more clear about what you wanted to do. \r\n | \r\n
It is working great now. Thank you for all your help.
", "PostedDate": "2009-07-20T13:00:35.353-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "214016", "ThreadId": "62831", "Html": "great, glad to hear it.
", "PostedDate": "2009-07-20T14:59:45.967-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]