[MOSTAFA.KAMEL]

اسف جداااا مختش بالى وانا بعمل الموضوع فى قسم تانى

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

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

اولا لازم تضيف المكتبة الخاصة بالـ 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