03-03-17, 03:23 PM
السلام عليكم
اريد فك ظغط ملف من مسار الى اخر استعملت هذا الكود وجدت فيه خطء
اريد فك ظغط ملف من مسار الى اخر استعملت هذا الكود وجدت فيه خطء
كود :
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