طلب كود فك ملف مضعوط - نسخة قابلة للطباعة

طلب كود فك ملف مضعوط ونقل المجلد الى مكان ما والمجلد معملو باسورد

وشكرااااااااااااا
تم ايجاد الكود

اولا لازم تضيف المكتبة الخاصة بالـ zip تمام

كود :

Imports Ionic.Zip

Imports Microsoft.VisualBasic.CompilerServices

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Diagnostics

Imports System.Drawing

Imports System.IO

Imports System.Runtime.CompilerServices

Imports System.Windows.Forms

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Imports System.Linq

Imports System.Net.NetworkInformation

Public Class Form1

    Dim _server As TcpListener

    Dim _listOfClients As New List(Of TcpClient)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim zipFile As String = "هنا مكان الملف"

   Dim targetDirectory As String = "المكان الى هيتم فك الملف في"

        Using zip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read(zipFile)

            zip.Password = "باسورد الملف"

            zip.ExtractAll(targetDirectory, Ionic.Zip.ExtractExistingFileAction.DoNotOverwrite)

        End Using

        Console.WriteLine("Zip file has been successfully extracted.")

        Console.Read()

        WebBrowser1.Navigate("")

    End Sub