[ { "Id": "123244", "ThreadId": "37146", "Html": "Thanks for this potentially fantastic library.
\r\nHowever I'm having problems getting it to work in my situation.
\r\nIn my VB ASP.NET project I'm trying to zip up a binary file and attach to an email, send the zip then delete the zip.
\r\n1. When the e-mail arrives, the attached ZIP file is empty, it's like the ZIP file can't add a network file to the zip file on the network.
\r\n2. When I try and delete the ZIP file at the end, it's still locked. I can't see a 'Close' function to unlock it, only Dispose, which doesn't unlock it.
\r\nThanks for any help you can provide.
\r\nWill.
\r\n
\r\nHere's a portion of the code:
\r\n
\r\n\r\n

 

\r\n\r\n

Dim zip As New ZipFile("\\\\server1\\ftproot\\Licence\\Engineer\\1002.zip")
\r\nzip.AddFile("\\\\server1\\ftproot\\Licence\\Engineer\\1002.inf")
\r\nzip.Save()
\r\n
\r\nDim mail As New System.Net.Mail.MailMessage
\r\nDim attachment As New System.Net.Mail.Attachment("\\\\server1\\ftproot\\Licence\\Engineer\\1002.zip")
\r\nmail.Attachments.Add(attachment)
\r\n
\r\nDim mClient As New System.Net.Mail.SmtpClient
\r\nmClient.Host = "ourEMailServer"
\r\nmClient.Credentials = System.Net.CredentialCache.DefaultNetworkCredentials()
\r\nmClient.Send(mail)
\r\n
\r\nIf File.Exists("\\\\server1\\ftproot\\Licence\\Engineer\\1002.zip") Then
\r\n    File.Delete("\\\\server1\\ftproot\\Licence\\Engineer\\1002.zip")
\r\nEnd If
\r\n\r\n

 

\r\n", "PostedDate": "2008-10-06T11:32:46.787-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "123353", "ThreadId": "37146", "Html": "

Hmm, I don't know what the problem is, but can you please wrap your use of the ZipFile in a using clause, eg:

\r\n
        Dim ZipToCreate As String = "\\\\server1\\ftproot\\whatever.zip"\r\n\r\n        If File.Exists(ZipToCreate) Then\r\n            'Console.WriteLine("Deletting existing zip file: {0}", ZipToCreate)\r\n            File.Delete(ZipToCreate)\r\n        End If\r\n\r\n        'Console.WriteLine("Creating new zip file: {0}", ZipToCreate)\r\n\r\n        Using zip As ZipFile = New ZipFile(ZipToCreate)\r\n          zip.AddFile("\\\\server1\\ftproot\\whatever\\you\\like.txt") \r\n          zip.Save()\r\n        End Using\r\n\r\n        ' at this point the zip file should exist, and should be readable. \r\n\r\n
\r\n", "PostedDate": "2008-10-06T17:09:45.057-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]