14-03-17, 10:55 PM
اسف جداااا مختش بالى وانا بعمل الموضوع فى قسم تانى
طلب كود فك ملف مضعوط ونقل المجلد الى مكان ما والمجلد معملو باسورد
وشكرااااااااااااا
تم ايجاد الكود
اولا لازم تضيف المكتبة الخاصة بالـ zip تمام
وشكرااااااااااااا
تم ايجاد الكود
اولا لازم تضيف المكتبة الخاصة بالـ 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