I am using this nifty zip dll for the first time. I am trying to use the AddSelectedFiles() method to add files to a zip file. In this simple example, I can use AddFile() which produces the desired results but beyond my simple example I do want to use AddSelectedFiles() so I can use wildcards in the filename. I can use AddFile() as follows:
\r\nUsing zip As ZipFile = New ZipFile
\r\nzip.AddFile("c:\\users\\public\\myapp\\mydatabase.mdb", "")
\r\nzip.Save(zipFileName)
\r\nEnd Using
\r\nThis works just fine. The file is added to the 'root' of the zip file (no path is shown when viewing the file with WinZip. However, when I substitute AddFile() for AddSelectedFiles() like this:
\r\nUsing zip As ZipFile = New ZipFile\r\n zip.AddSelectedFiles("name = 'mydatabase.mdb'", "c:\\users\\public\\myapp\\", "", False) zip.Save(zipFileName) End Using
I get a zip file that contains mydatabase.mdb but it is not stored in the 'root' folder of the zip file. Rather, the zip file shows the file to be in "users\\public\\myapp\\". Note the path stored in the zip file does not begin with a backslash.
\r\nI am running Visual Studio 2008. The operating system is 64-bit Vista if that matters. Any advise would be greatly appreciated!
\r\nAndy
\r\n", "PostedDate": "2009-11-10T10:10:07.697-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "255616", "ThreadId": "74687", "Html": "
Just for grins, I tried the following variations:
\r\nzip.AddSelectedFiles("name = 'mydatabase.mdb'", "c:\\users\\public\\myapp\\", "blah", False)
\r\nzip.AddSelectedFiles("name = 'mydatabase.mdb'", "c:\\users\\public\\myapp\\", "blah\\", False)
\r\nzip.AddSelectedFiles("name = 'mydatabase.mdb'", "c:\\users\\public\\myapp\\", "\\blah\\", False)
\r\nAll made no difference. In all cases (as in my original message) I got a zip file containing mydatabase.mdb, but there was an internal zip path recorded of "users\\public\\myapp\\". It is as if the 3rd parameter is being ignored.
\r\nAndy
", "PostedDate": "2009-11-10T10:16:53.81-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "255620", "ThreadId": "74687", "Html": "I am using ionic.zip.reduced.dll version 1.8.4.27.
", "PostedDate": "2009-11-10T10:23:04.727-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "255900", "ThreadId": "74687", "Html": "Andy, thanks for using the forums.
\r\nI understand what you're saying, and I cannot reproduce that behavior. The version of the OS should not matter. Here's the test case I'm using, full source code. Can you please try this and send me the output you get:
\r\n' AddSelected2.vb\r\n'\r\n' For Andy.\r\n'\r\n' Instructions:\r\n' 1. modify the code to specify the directories and filespecs you want.\r\n' 2. Compile with:\r\n' c:\\.net3.5\\vbc.exe /R:Ionic.Zip.Reduced.dll /out:AddSelected2.exe AddSelected2.vb\r\n' 3. open command prompt and run it\r\n'\r\n' ------------------------------------------------------------------\r\n'\r\n' Copyright (c) 2009 Dino Chiesa\r\n' All rights reserved!\r\n'\r\n' ------------------------------------------------------------------\r\n\r\n\r\nImports System\r\nImports Ionic.Zip\r\n\r\n\r\nNamespace Ionic.TestForAndy\r\n\r\n\r\nPublic Class AddSelected2\r\n\r\n Dim sb As System.Text.StringBuilder\r\n\r\n Private Sub StdErrorRead(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)\r\n If Not String.IsNullOrEmpty(e.Data) Then\r\n sb.Append(e.Data)\r\n End If\r\n End Sub\r\n\r\n \r\n Public Sub Run()\r\n\r\n Dim zipFileName As String = "AddSelected2.zip"\r\n \r\n Dim dirOnDisk1 As String = "c:\\dinoch\\dev\\ISAPI\\IIRF\\v2.0\\AdminGuide"\r\n Dim filespec1 As String = "IirfGuide.shfbproj"\r\n Dim dirInArchive1 As String = ""\r\n \r\n Dim dirOnDisk2 As String = "c:\\Desktop\\PhonePhotos"\r\n Dim filespec2 As String = "*.jpg"\r\n Dim dirInArchive2 As String = "Photos"\r\n\r\n If System.IO.File.Exists(zipFileName) Then\r\n System.IO.File.Delete(zipFileName)\r\n End If \r\n \r\n System.Console.WriteLine("Using DotNetZip version: {0}", ZipFile.LibraryVersion)\r\n \r\n Using zip As ZipFile = New ZipFile\r\n zip.StatusMessageTextWriter = System.Console.Out\r\n zip.AddSelectedFiles("name = '" & filespec1 & "'", dirOnDisk1, dirInArchive1, False)\r\n zip.AddSelectedFiles("name = '" & filespec2 & "'", dirOnDisk2, dirInArchive2, False)\r\n zip.Save(zipFileName)\r\n\r\n End Using\r\n\r\n \r\n '' now, list the contents of the file\r\n System.Console.WriteLine\r\n System.Console.WriteLine("Checking the generated zip...")\r\n Dim numErrors As Integer = 0\r\n Using zip As ZipFile = ZipFile.Read(zipFileName)\r\n Dim e As ZipEntry\r\n For Each e In zip\r\n System.Console.WriteLine("{0}", e.FileName)\r\n Dim d As String\r\n d = System.IO.Path.GetDirectoryName(e.FileName)\r\n If (d <> dirInArchive1 AND d <> dirInArchive2) Then\r\n System.Console.WriteLine(" *** Path on entry {0} is unexpected.", e.FileName)\r\n numErrors = numErrors + 1\r\n End If\r\n Next\r\n End Using\r\n \r\n System.Console.WriteLine(New String(Chr(45), 72))\r\n System.Console.WriteLine("# unexpected paths: {0}", numErrors)\r\n\r\n End Sub\r\n\r\n\r\n Public Shared Sub Main(ByVal args As String())\r\n Try \r\n Dim X as New AddSelected2()\r\n X.Run\r\n Catch exc1 As Exception\r\n Console.WriteLine("Exception: {0}", exc1.ToString)\r\n End Try\r\n End Sub\r\n\r\n\r\nEnd Class\r\n\r\n\r\nEnd Namespace\r\n\r\n\r\n
", "PostedDate": "2009-11-11T02:23:07.01-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "256009", "ThreadId": "74687", "Html": "\r\n\r\n
Hi Cheeso.
\r\n\r\n\r\n\r\n
I figured out the problem using your test program. Originally\r\nwhen I ran your test, I set the variable ‘dirOnDisk1’ equal to “\r\nc:\\users\\public\\myapp\\”. The resulting zip file contained the full path rather\r\nthan putting it into the root of the zip file. Then, I changed it to “c:\\users\\public\\myapp”\r\nbecause in the original sample you sent to me did not have the ending\r\nbackslash. It worked! I would have never guessed to remove the ending\r\nbackslash in the directory designation.
\r\n\r\n\r\n\r\n
Andy
\r\n\r\n\r\n\r\n
From: Cheeso\r\n[mailto:notifications@codeplex.com]
\r\nSent: Wednesday, November 11, 2009 4:23 AM
\r\nTo: andy.pelkey@earthlink.net
\r\nSubject: Re: Trying to get the AddSelectedFiles() method to store\r\nrelative path to file [DotNetZip:74687]
\r\n\r\n
From:\r\nCheeso
\r\n\r\nAndy,\r\nthanks for using the forums.
\r\n\r\nI\r\nunderstand what you're saying, and I cannot reproduce that behavior. The\r\nversion of the OS should not matter. Here's the test case I'm using, full\r\nsource code. Can you please try this and send me the output you get:
\r\n\r\n' AddSelected2.vb'' For Andy.'' Instructions:' 1. modify the code to specify the directories and filespecs you want.' 2. Compile with:' c:\\.net3.5\\vbc.exe /R:Ionic.Zip.Reduced.dll /out:AddSelected2.exe AddSelected2.vb' 3. open command prompt and run it'' ------------------------------------------------------------------'' Copyright (c) 2009 Dino Chiesa' All rights reserved!'' ------------------------------------------------------------------ Imports System
Imports Ionic.Zip
Namespace Ionic.TestForAndy
Public Class AddSelected2
Dim sb As System.Text.StringBuilder
Private Sub StdErrorRead(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)
If Not String.IsNullOrEmpty(e.Data) Then
sb.Append(e.Data)End If
End Sub
Public Sub Run()
Dim zipFileName As String = "AddSelected2.zip"
Dim dirOnDisk1 As String = "c:\\dinoch\\dev\\ISAPI\\IIRF\\v2.0\\AdminGuide"
Dim filespec1 As String = "IirfGuide.shfbproj"
Dim dirInArchive1 As String = ""
Dim dirOnDisk2 As String = "c:\\Desktop\\PhonePhotos"
Dim filespec2 As String = "*.jpg"
Dim dirInArchive2 As String = "Photos"
If System.IO.File.Exists(zipFileName) Then
System.IO.File.Delete(zipFileName)End If
System.Console.WriteLine("Using DotNetZip version: {0}", ZipFile.LibraryVersion)
Using zip As ZipFile = New ZipFile
zip.StatusMessageTextWriter = System.Console.Outzip.AddSelectedFiles("name = '" & filespec1 & "'", dirOnDisk1, dirInArchive1, False)
zip.AddSelectedFiles("name = '" & filespec2 & "'", dirOnDisk2, dirInArchive2, False)
zip.Save(zipFileName) End Using
'' now, list the contents of the file
System.Console.WriteLineSystem.Console.WriteLine("Checking the generated zip...")
Dim numErrors As Integer = 0
Using zip As ZipFile = ZipFile.Read(zipFileName)
Dim e As ZipEntry
For Each e In zip
System.Console.WriteLine("{0}", e.FileName)
Dim d As String
d = System.IO.Path.GetDirectoryName(e.FileName)If (d <> dirInArchive1 AND d <> dirInArchive2) Then
System.Console.WriteLine(" *** Path on entry {0} is unexpected.", e.FileName)
numErrors = numErrors + 1End If
Next
End Using
System.Console.WriteLine(New String(Chr(45), 72))
System.Console.WriteLine("# unexpected paths: {0}", numErrors)
End Sub
Public Shared Sub Main(ByVal args As String())
Try
Dim X as New AddSelected2()
X.RunCatch exc1 As Exception
Console.WriteLine("Exception: {0}", exc1.ToString)
End Try
End Sub
End Class
End Namespace
\r\n\r\n
Thanks Andy, sounds like a bug. I'll get that checked out.
\r\nIn the meantime you are on your way, I guess.
\r\n", "PostedDate": "2009-11-11T09:41:06.49-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "256041", "ThreadId": "74687", "Html": "\r\n\r\n
Yes I am able to work around it easily enough.
\r\n\r\n\r\n\r\n
From: Cheeso\r\n[mailto:notifications@codeplex.com]
\r\nSent: Wednesday, November 11, 2009 11:41 AM
\r\nTo: andy.pelkey@earthlink.net
\r\nSubject: Re: Trying to get the AddSelectedFiles() method to store\r\nrelative path to file [DotNetZip:74687]
\r\n\r\n
From:\r\nCheeso
\r\n\r\nThanks\r\nAndy, sounds like a bug. I'll get that checked out.
\r\n\r\nIn the\r\nmeantime you are on your way, I guess.
\r\n\r\n\r\n\r\n