VB.net에서 파일 압축 해제

Question

사람이 나를 도울 수 있습니까 의 압축 파일을 VB.Net에 압축 해제 하시겠습니까? "수입 shell32를"을 사용하여

메신저

Answer 1

이 CodeProject 기사에서 살펴 경우 당신을 도움이 될 것입니다. 특정 문제가있는 경우 질문에 코드 및 문제 설명을 넣어야합니다.

:

Sub UnZip() 
    Dim sc As New Shell32.Shell() 
    'Create directory in which you will unzip your files . 
    IO.Directory.CreateDirectory("D:\extractedFiles") 
    'Declare the folder where the files will be extracted 
    Dim output As Shell32.Folder = sc.NameSpace("D:\extractedFiles") 
    'Declare your input zip file as folder . 
    Dim input As Shell32.Folder = sc.NameSpace("d:\myzip.zip") 
    'Extract the files from the zip file using the CopyHere command . 
    output.CopyHere(input.Items, 4) 

End Sub 

링크

---

아니면 닷넷 4.5을 사용하는 경우이 링크에서 ZipFile Class

예를 사용할 수있는 방법 Folder.CopyHere에 대한 : 위의 문서에서

Imports System.IO 
Imports System.IO.Compression 

Module Module1 

    Sub Main() 
     Dim startPath As String = "c:\example\start" 
     Dim zipPath As String = "c:\example\result.zip" 
     Dim extractPath As String = "c:\example\extract" 

     ZipFile.CreateFromDirectory(startPath, zipPath) 

     ZipFile.ExtractToDirectory(zipPath, extractPath) 
    End Sub 

End Module 

Answer 2

나는 당신이 http://dotnetzip.codeplex.com/를 다운로드 한 다음이 (문서에서 가져온 예)처럼 사용하는 것이 좋습니다 것입니다.

Dim ZipToUnpack As String = "C1P3SML.zip" 
Dim TargetDir As String = "C1P3SML" 
Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir) 
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack) 
    Dim e As ZipEntry 
    For Each e In zip1 
     e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently) 
    Next 
End Using