[
  {
    "Id": "813424",
    "ThreadId": "349435",
    "Html": "<p>I'm using Ionic.Zip.Dll version 1.9 with my Visual Basic program and I've got it referenced. The particular problem I'm having is that I can unzip and zip the file flawlessly in Debug mode, however, after I Build the program and install it, I can neither  unzip or zip the file. It doesn't give an exception or anything, it's almost as if the code for the process doesn't exist.<br /> <br /> <br /> Here's the relevant code. (file names and directories changed due to security reasons)</p>\n<p>Initial Start</p>\n<div style=\"color: black; background-color: white;\">\n<pre><span style=\"color: blue;\">Imports</span> System\n<span style=\"color: blue;\">Imports</span> System.IO\n<span style=\"color: blue;\">Imports</span> System.Text\n<span style=\"color: blue;\">Imports</span> Ionic.Zip\n\n<span style=\"color: blue;\">Public</span> <span style=\"color: blue;\">Class</span> frm1\n    \n    <span style=\"color: green;\">'Declaring variables to store file paths to use later</span>\n    <span style=\"color: blue;\">Dim</span> Desktop <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> User <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> path4 <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> path5 <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> dotmcf <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> jarpath <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> savefolderpath <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>\n    <span style=\"color: blue;\">Dim</span> dotmcf <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span><br />\n&nbsp;Public Sub frm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /><span style=\"color: green;\">'Obtains the path to the desktop</span>\n        Desktop = <span style=\"color: blue;\">My</span>.Computer.FileSystem.SpecialDirectories.Desktop\n<span style=\"color: green;\">'Obtains the username for access to the folder</span>\n        User = <span style=\"color: blue;\">My</span>.Computer.FileSystem.GetParentPath(Desktop)\n  <span style=\"color: green;\">'finding the folder vista/7/8</span>\n        path4 = User &amp; <span style=\"color: #a31515;\">\"\\Testfolder\\\"</span>\n        <span style=\"color: green;\">'finding the folder in XP</span>\n        path5 = User &amp; <span style=\"color: #a31515;\">\"\\Testfolder\\\"</span>\n        <span style=\"color: green;\">'enables the dotmcf setting</span>\n        <span style=\"color: blue;\">If</span> IO.Directory.Exists(path4) <span style=\"color: blue;\">Then</span>\n            dotmcf = path4\n        <span style=\"color: blue;\">ElseIf</span> IO.Directory.Exists(path5) <span style=\"color: blue;\">Then</span>\n            dotmcf = path5\n        <span style=\"color: blue;\">Else</span>\n            MsgBox(<span style=\"color: #a31515;\">\"we cannot find your folder.\"</span>)\n        <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">If</span>\n       <span style=\"color: green;\">'sets up the paths for zipping and unzipping the .jar</span>\n        savefolderpath = Desktop &amp; <span style=\"color: #a31515;\">\"\\JarUnzipped\\\"</span>\n        jarpath = dotmcf &amp; <span style=\"color: #a31515;\">\"test.jar\"</span>\n\n\nThe Zip code.\n</pre>\n</div>\n<p><br /> <br /></p>\n<div style=\"color: black; background-color: white;\">\n<pre><span style=\"color: green;\">'unpackages the .jar file</span>\n    <span style=\"color: blue;\">Private</span> <span style=\"color: blue;\">Sub</span> btnUZip_Click(<span style=\"color: blue;\">ByVal</span> sender <span style=\"color: blue;\">As</span> System.Object, <span style=\"color: blue;\">ByVal</span> e <span style=\"color: blue;\">As</span> System.EventArgs) <span style=\"color: blue;\">Handles</span> btnUZip.Click\n        <span style=\"color: green;\">'Checks for the folder on the desktop</span>\n        <span style=\"color: blue;\">If</span> IO.Directory.Exists(Desktop &amp; <span style=\"color: #a31515;\">\"\\JarUnzipped\"</span>) <span style=\"color: blue;\">Then</span>\n            System.IO.Directory.Delete(Desktop &amp; <span style=\"color: #a31515;\">\"\\JarUnzipped\"</span>, <span style=\"color: blue;\">True</span>)\n\n            <span style=\"color: green;\">'handles the unzipping of the .jar file</span>\n            <span style=\"color: blue;\">Dim</span> ZipToUnpack <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span> = jarpath\n            <span style=\"color: blue;\">Dim</span> UnpackDirectory <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span> = savefolderpath\n            <span style=\"color: blue;\">Using</span> zip1 <span style=\"color: blue;\">As</span> ZipFile = ZipFile.Read(ZipToUnpack)\n                <span style=\"color: blue;\">Dim</span> ze <span style=\"color: blue;\">As</span> ZipEntry\n                <span style=\"color: green;\">' here, we extract every entry, but we could extract conditionally,</span>\n                <span style=\"color: green;\">' based on entry name, size, date, checkbox status, etc.   </span>\n                <span style=\"color: blue;\">For</span> <span style=\"color: blue;\">Each</span> ze <span style=\"color: blue;\">In</span> zip1\n                    ze.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)\n                <span style=\"color: blue;\">Next</span>\n            <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Using</span>\n        <span style=\"color: blue;\">Else</span>\n            <span style=\"color: green;\">'handles the unzipping of the minecraft.jer file</span>\n            <span style=\"color: blue;\">Dim</span> ZipToUnpack <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span> = jarpath\n            <span style=\"color: blue;\">Dim</span> UnpackDirectory <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span> = savefolderpath\n            <span style=\"color: blue;\">Using</span> zip1 <span style=\"color: blue;\">As</span> ZipFile = ZipFile.Read(ZipToUnpack)\n                <span style=\"color: blue;\">Dim</span> ze <span style=\"color: blue;\">As</span> ZipEntry\n                <span style=\"color: green;\">' here, we extract every entry, but we could extract conditionally,</span>\n                <span style=\"color: green;\">' based on entry name, size, date, checkbox status, etc.   </span>\n                <span style=\"color: blue;\">For</span> <span style=\"color: blue;\">Each</span> ze <span style=\"color: blue;\">In</span> zip1\n                    ze.Extract(UnpackDirectory, ExtractExistingFileAction.OverwriteSilently)\n                <span style=\"color: blue;\">Next</span>\n            <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Using</span>\n        <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">If</span>\n\n    <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Sub</span>\n    <span style=\"color: green;\">'creates the new .jar file</span>\n    <span style=\"color: blue;\">Private</span> <span style=\"color: blue;\">Sub</span> btnZip_Click(<span style=\"color: blue;\">ByVal</span> sender <span style=\"color: blue;\">As</span> System.Object, <span style=\"color: blue;\">ByVal</span> e <span style=\"color: blue;\">As</span> System.EventArgs) <span style=\"color: blue;\">Handles</span> btnZip.Click\n        <span style=\"color: green;\">'Checks for the folder on the desktop</span>\n        <span style=\"color: blue;\">If</span> IO.File.Exists(ziptocreate) <span style=\"color: blue;\">Then</span>\n            System.IO.File.Delete(ziptocreate)\n            <span style=\"color: green;\">'Handles the Zipping of .jar</span>\n            <span style=\"color: blue;\">Dim</span> itempaths <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>() = _\n              <span style=\"color: blue;\">New</span> <span style=\"color: blue;\">String</span>() {savefolderpath}\n            <span style=\"color: blue;\">Try</span>\n                <span style=\"color: blue;\">Using</span> zip <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">New</span> ZipFile\n                    <span style=\"color: blue;\">Dim</span> i <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">Integer</span>\n                    <span style=\"color: blue;\">For</span> i = 1 <span style=\"color: blue;\">To</span> itempaths.Length - 1\n                        <span style=\"color: green;\">' will add Files or Dirs, recursing and flattening subdirectories.</span>\n                        zip.AddItem(itempaths(i), <span style=\"color: #a31515;\">\"flat\"</span>)\n                    <span style=\"color: blue;\">Next</span> i\n                    zip.Save(zippath &amp; <span style=\"color: #a31515;\">\"test.jar\"</span>)\n                <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Using</span>\n            <span style=\"color: blue;\">Catch</span> ex1 <span style=\"color: blue;\">As</span> Exception\n                Console.<span style=\"color: blue;\">Error</span>.WriteLine(<span style=\"color: #a31515;\">\"exception: {0}\"</span>, ex1.ToString())\n            <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Try</span>\n        <span style=\"color: blue;\">Else</span>\n            <span style=\"color: green;\">'handles the zipping of .jar</span>\n            <span style=\"color: blue;\">Dim</span> itempaths <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">String</span>() = _\n             <span style=\"color: blue;\">New</span> <span style=\"color: blue;\">String</span>() {savefolderpath}\n            <span style=\"color: blue;\">Try</span>\n                <span style=\"color: blue;\">Using</span> zip <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">New</span> ZipFile\n                    <span style=\"color: blue;\">Dim</span> i <span style=\"color: blue;\">As</span> <span style=\"color: blue;\">Integer</span>\n                    <span style=\"color: blue;\">For</span> i = 1 <span style=\"color: blue;\">To</span> itempaths.Length - 1\n                        <span style=\"color: green;\">' will add Files or Dirs, recursing and flattening subdirectories.</span>\n                        zip.AddItem(itempaths(i), <span style=\"color: #a31515;\">\"flat\"</span>)\n                    <span style=\"color: blue;\">Next</span> i\n                    zip.Save(zippath &amp; <span style=\"color: #a31515;\">\"test.jar\"</span>)\n                <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Using</span>\n            <span style=\"color: blue;\">Catch</span> ex1 <span style=\"color: blue;\">As</span> Exception\n                Console.<span style=\"color: blue;\">Error</span>.WriteLine(<span style=\"color: #a31515;\">\"exception: {0}\"</span>, ex1.ToString())\n            <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Try</span>\n        <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">If</span>\n\n    <span style=\"color: blue;\">End</span> <span style=\"color: blue;\">Sub</span>\n</pre>\n</div>\n<p>&nbsp;</p>\n<p>&nbsp;</p>\n<p>&nbsp;</p>\n<p>&nbsp;</p>\n<p>&nbsp;</p>\n<p>If anyone can spot anything that could be a reason it's not working after I build the program please let me know. As stated before, due to security reasons I have not included the code in it's entirety.<br /> <br /> <br /> Many thanks, and sorry for posting so much code.<br /> <br /> <br /> <br /> <br /> <br /> <br /> <strong>Edit: </strong>After closing Visual Studio last night and reopening it today, I can no longer zip or unzip the files using the above code in debug mode. The interesting thing about is that I don't get any exceptions or errors, it's like it's working but not producing a result.</p>",
    "PostedDate": "2012-03-21T03:37:01.167-07:00",
    "UserRole": null,
    "MarkedAsAnswerDate": null
  }
]