[
  {
    "Id": "993987",
    "ThreadId": "431358",
    "Html": "\r\n<p>Hi,</p>\r\n<p>I have a problem. I am developing an application using VB 2010 Ultimate Version and MS Access 2013. My Operating System in Win 7 Professional</p>\r\n<p>My application is not responding. My Code snippet is like this</p>\r\n<p>&nbsp;</p>\r\n<p>Imports Ionic.Zip</p>\r\n<p><span style=\"font-size:10pt\">Imports Ionic.Zip.ZipInputStream</span></p>\r\n<p><span style=\"font-size:10pt\">Imports Ionic.Zip.ZipOutputStream</span></p>\r\n<p><span style=\"font-size:10pt\">Imports Ionic.ZlibImports Ionic.BZip2</span></p>\r\n<p>&nbsp;</p>\r\n<p>&nbsp;</p>\r\n<p>Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p>&nbsp;</p>\r\n<p style=\"padding-left:30px\">Using zip As New ZipFile()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p style=\"padding-left:30px\">zip.ZipErrorAction = ZipErrorAction.Throw&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p style=\"padding-left:30px\">zip.UseZip64WhenSaving = Zip64Option.AsNecessary&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; zip.AddDirectory(mZIPFOLDERNAME_SOURCE, mZIPFOLDERNAME_SOURCE) &nbsp; &nbsp; &nbsp;\r\n &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; zip.Save(mZIPFOLDERNAME_DESTINATION & &quot;.zip&quot;)<br>\r\nmZIPFOLDER = mZIPFOLDERNAME & &quot;.zip&quot;&nbsp;</p>\r\n<p style=\"padding-left:30px\">mDESTINATIONPATH_CHECK = mZIPFOLDER&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p style=\"padding-left:30px\">zip.Dispose()<br>\r\n<span style=\"font-size:10pt\">End Using &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</span></p>\r\n<p>Catch ex As ZipException&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p style=\"padding-left:30px\">MessageBox.Show(ex.Message)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;</p>\r\n<p>End Try</p>\r\n<p>&nbsp;</p>\r\n<p><span style=\"font-size:10pt\"><br>\r\n</span></p>\r\n",
    "PostedDate": "2013-01-29T23:22:13.937-08:00",
    "UserRole": null,
    "MarkedAsAnswerDate": null
  }
]