VB.Net zip 파일 만들기 및 zip 파일에서 추출

Question

"C : \ Users \ Wangui Kamande \ Desktop \ social.txt"파일을 가지고 있는데이 파일을 .zip 파일로 압축하여 "C : \ 사용자 \ Wangui Kamande \ 바탕 화면 ". Microsoft 사이트에서 다음 코드를 얻었지만이 문제를 해결하는 방법에 대해서는 확신 할 수 없습니다. "C : \ Users \ Wangui Kamande \ Desktop \ social.txt"파일이 폴더에 있어야합니까? mircosoft 사이트에서

코드는 다음과 같습니다

Private Sub btnCompress_Click(sender As Object, e As EventArgs) Handles btnCompress.Click 
     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 

Answer 1

당신은 우편으로 개별 파일을 추가 할 ZipArchive.CreateEntryFromFile 확장 방법을 원하는 ...

Using zip = ZipFile.Open("C:\Users\Wangui Kamande\Desktop\social.zip", ZipArchiveMode.Create) 
    zip.CreateEntryFromFile("C:\Users\Wangui Kamande\Desktop\social.txt", "social.txt") 
End Using 

이 우편에서 개별 파일을 추출하려면, ZipArchiveEntry.ExtractToFile 확장 방법이 있지만 먼저 zip에서 적절한 항목을 찾아야합니다. 아래 그림과 같이 당신은 이름 항목을 찾을 LINQ를 사용할 수 있습니다 ExtractToFile에

Using zip = ZipFile.Open("C:\Users\Wangui Kamande\Desktop\social.zip", ZipArchiveMode.Read) 
    Dim entry = zip.Entries.Single(Function(x) x.Name = "social.txt") 
    entry.ExtractToFile("C:\Users\Wangui Kamande\Desktop\social2.txt", True) 
End Using 

제 2 매개 변수는 선택 사항이며, 기존 파일을 덮어 쓰기 여부를 지정합니다.