if you loop through a zip file and extract each file in the zip, does the extraction of the file from the zip occur in each call to extract or at the end? If not how can I get each file to exist?
\r\nas in the example below.
\r\nDim ZipToUnpack As String = "C1P3SML.zip"
Dim TargetDir As String = "C1P3SML"
Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir)
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress
Dim e As ZipEntry
' here, we extract every entry, but we could extract
' based on entry name, size, date, etc.
For Each e In zip1
e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)
' does each file exist at this point
\r\n Next
End Using
Norton, you keep using different signin names?
\r\nThe file will exist immediately after the call to e.Extract() returns.
", "PostedDate": "2009-08-18T14:29:27.723-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "225164", "ThreadId": "66284", "Html": "\r\n\r\nI was using the Extract(String, ExtractExistingFileAction) overload\r\nand found that extract was extracting to the base directory(string) and then\r\nadding in the ZIP folder pathing to place the file further down the base\r\ndirectory. In Winzip to solve this problem I uncheck the “Use\r\nFolder name” and Winzip places in the unzipped file in the base\r\ndirectory. What can I do to get the files in the zip only in the\r\nbase directory with no ZIP folder names?
\r\n\r\n\r\n\r\n
Thanks
\r\n\r\n\r\n\r\n
Colby
\r\n\r\n**********************************************************************\r\nThis communication does not reflect an intention by the sender or the \r\nsender's client or principal to conduct a transaction or make any \r\nagreement by electronic means. Nothing contained within either this \r\nmessage or any attachment shall satisfy the requirements for a writing, \r\nand nothing contained herein shall constitute a contract or electronic \r\nsignature under the Electronic Signatures in Global and National \r\nCommerce Act (ESIGN), any version of the Uniform Electronic Transactions\r\nAct (UETA), or any other statute governing electronic transactions. This\r\nelectronic transmission and any attached documents or other writings are\r\nconfidential and for the sole use of the intended recipient(s) identified\r\nabove. This message may contain information that is privileged, \r\nconfidential, or otherwise protected from disclosure under applicable law. \r\nIf you are not the intended recipient, or employee, or agent responsible \r\nfor delivering the information to the intended recipient, you are hereby \r\nnotified that any use, reading, dissemination, distribution, copying, or \r\nstorage of this information is strictly prohibited.\r\nIf you have received this information in error, please notify Town North \r\nBank via e-mail at IntrusionDetection@tnbonline.com and delete the \r\nelectronic transmission, including all attachments from your system.\r\n**********************************************************************",
"PostedDate": "2009-08-18T15:15:16.45-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "225192",
"ThreadId": "66284",
"Html": "For now, you have to reset the name of the entry, conditionally, like this:
\r\n\r\n Using zip1 As ZipFile = ZipFile.Read(ZipPath)\r\n For Each e As ZipEntry In zip1\r\n If e.FileName.Contains("/") Then\r\n Dim s As String = System.IO.Path.GetFileName(e.FileName)\r\n Dim n As Integer = 0\r\n Do While Not (zip1(s) Is Nothing)\r\n n = n+1\r\n s = System.IO.Path.GetFileNameWithoutExtension(e.FileName) & "." & n.ToString() & _\r\n System.IO.Path.GetExtension(e.FileName) \r\n Loop\r\n e.FileName = s\r\n End If\r\n e.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)\r\n Next\r\n End Using\r\n\r\n
\r\n\r\nThis code ensures that any entries that share a base name with other entries in the ZipFile, are extracted with unique names.
\r\nThere's an open workitem (7803) requesting that this capability be built-in.
",
"PostedDate": "2009-08-18T16:37:22.227-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "225217",
"ThreadId": "66284",
"Html": "ok, I just released v1.8.4.19. With that release there's a new property on the ZipFile class to make this simpler. It's called FlattenFoldersOnExtract. Use it like this:
\r\n\r\nUsing zip1 As ZipFile = ZipFile.Read(ZipPath)\r\n zip1.FlattenFoldersOnExtract = True\r\n For Each e As ZipEntry In zip1\r\n e.Extract(extractPath, ExtractExistingFileAction.OverwriteSilently)\r\n Next\r\nEnd Using\r\n\r\n
\r\n\r\nor this:
\r\n\r\nUsing zip1 As ZipFile = ZipFile.Read(ZipPath)\r\n zip1.FlattenFoldersOnExtract = True\r\n zip1.ExtractAll(extractPath, ExtractExistingFileAction.OverwriteSilently)\r\nEnd Using\r\n\r\n
\r\n\r\n
",
"PostedDate": "2009-08-18T18:41:05.14-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "225893",
"ThreadId": "66284",
"Html": "\r\n\r\n\r\n\r\nThanks for your help. Downloaded the new release and\r\nit worked.
\r\n\r\n
\r\n\r\n\r\n\r\n\r\n\r\n**********************************************************************\r\nThis communication does not reflect an intention by the sender or the \r\nsender's client or principal to conduct a transaction or make any \r\nagreement by electronic means. Nothing contained within either this \r\nmessage or any attachment shall satisfy the requirements for a writing, \r\nand nothing contained herein shall constitute a contract or electronic \r\nsignature under the Electronic Signatures in Global and National \r\nCommerce Act (ESIGN), any version of the Uniform Electronic Transactions\r\nAct (UETA), or any other statute governing electronic transactions. This\r\nelectronic transmission and any attached documents or other writings are\r\nconfidential and for the sole use of the intended recipient(s) identified\r\nabove. This message may contain information that is privileged, \r\nconfidential, or otherwise protected from disclosure under applicable law. \r\nIf you are not the intended recipient, or employee, or agent responsible \r\nfor delivering the information to the intended recipient, you are hereby \r\nnotified that any use, reading, dissemination, distribution, copying, or \r\nstorage of this information is strictly prohibited.\r\nIf you have received this information in error, please notify Town North \r\nBank via e-mail at IntrusionDetection@tnbonline.com and delete the \r\nelectronic transmission, including all attachments from your system.\r\n**********************************************************************",
"PostedDate": "2009-08-20T08:01:48.427-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "225898",
"ThreadId": "66284",
"Html": "great, glad it worked for you.
",
"PostedDate": "2009-08-20T08:06:58.8-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
}
]