\r\n\r\n
\r\n 'get data from database Dim
name As String = ""
\r\nDim dt As System.Data.DataTable = Nothing
\r\nDim obj As New clsSysFields(1, 1)
\r\nobj.funGetData(dt)
\r\nDim str As New StringBuilder()
\r\nFor i As Integer = 0 To dt.Rows.Count - 1
\r\n For j As Integer = 2 To dt.Columns.Count - 1
\r\n name = dt.Rows(i).Item(j).ToString + " "
\r\n str.Append(name.Substring(0, 20))
\r\n Next
\r\n str.AppendLine()
\r\nNext
\r\n
\r\nDim archiveName As String = String.Format("archive-{0}.zip", DateTime.Now.ToString("yyyy-MM-dd"))
\r\nResponse.Clear()
\r\nResponse.ContentType = "application/zip"
\r\nResponse.AddHeader("content-disposition", "filename=" + archiveName)
\r\n
\r\nDim zip As New ZipFile
\r\nzip.AddFileFromString("Readme.txt", "", str.ToString())
\r\nzip.Save(Response.OutputStream)
\r\nResponse.End()
\r\n
\r\nThis code create one zip file, but when i try open this file with WinZip or WinRar, show me this message "Cannot open file: it does not appear to be a valid archive".
\r\nI have WinZip 12.0 and WinRar 3.7
\r\nThe same with compressed files from Windows Explorer.
\r\n
\r\nCan you help me?
Thank you
\r\n
Why are you not using a Using clause?
\r\nThe using clause around the ZipFile is essential.
\r\n
\r\nI delivered an example, very similar to the code you posted. http://code.msdn.microsoft.com/DotNetZip/Release/ProjectReleases.aspx?ReleaseId=2015 Maybe you used the example as a starting point? But the example I wrote employed a Using clause, whereas it is missing from your code.
\r\n
\r\nThe using clause closes the stream, releases resources. Try it with the using clause and let me know.
\r\n", "PostedDate": "2009-04-28T10:34:08.793-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "185865", "ThreadId": "54375", "Html": "
Thank you for your post.
\r\nI change this (from original post code):
\r\n\r\n\r\n\r\n
Dim zip As New ZipFile Using zip As ZipFile = New ZipFile \r\n
\r\nzip.AddFileFromString("Readme.txt", "", str.ToString())
\r\nzip.Save(Response.OutputStream)
\r\n
\r\n
\r\nfor this:
\r\n
\r\n zip.AddFileFromString("Readme.txt", "", str.ToString())
\r\n zip.Save(Response.OutputStream)
\r\nEnd Using
\r\n
\r\nfrom your suggestion example, but, i get the same results.
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n\r\n
CD, your code looks correct, and it should work.
\r\nI don't know what the problem might be but I can suggest a few things.
There's a report of a bug that exists in IE7 where a Response.Expires = 0 can lead to inability to save the downloaded file. I have not seen this myself. But it is worth checking.
\r\nIf those steps don't eliminate the problem, would it be possible for you to share the zip file in question that cannot be opened? You would have to open a workitem (via the tab across the top of this page labeled "Issue Tracker"), create a new workitem, and attach the failing zip file to the newly opened workitem.
\r\n", "PostedDate": "2009-05-01T09:17:39.403-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "185933", "ThreadId": "54375", "Html": "