منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تصحيح الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تصحيح الكود (/showthread.php?tid=19502)

تصحيح الكود - bidaya - 03-03-17

السلام عليكم
اريد فك ظغط ملف من مسار الى اخر استعملت هذا الكود وجدت فيه خطء
كود :
Dim ZipToUnPack As String = "C:\folder\h.zip"
       Dim TargetZip As String = "C:\folder1\"

       Using zip As ZipFile = ZipFile.Read(ZipToUnPack)
           Dim z As ZipEntry
           For Each z In zip
               z.Extract(TargetZip, ExtractExistingFileAction.InvokeExtractProgressEvent)
           Next
       End Using
   End Sub