[求助] [出包中求助]sharpziplib空目錄解壓縮問題

[複製鏈接]

kevin001958

17 主題	1 好友	20 積分

新手上路

Rank: 1

UID: 3587
帖子: 185
主題: 17
精華: 0
積分: 20
楓幣: 799
威望: 16
存款: 722
贊助金額: 0
推廣: 0
ＧＰ: 17
閱讀權限: 10
性別: 保密
在線時間: 81 小時
註冊時間: 2012-1-30
最後登入: 2022-3-2

發消息

電梯直達

1樓

發表於 2019-5-23 15:47:23 |只看該作者 |倒序瀏覽

本帖最後由 kevin001958 於 2019-5-23 23:08 編輯

如提,如果我的test.zip檔案內有1,2這兩個資料夾還有test3.txt3個檔案
1內有test1.txt,2為空資料夾
然後我解壓縮要怎麼解壓縮出1內含有test1,2(空資料夾)跟test3檔案

1有test1 2為空目錄
解壓出來變成
QQ截图20190523154341.png

要怎麼作才能變成目的資料夾內含有1跟2資料夾
test1.txt在資料夾1內
test3.txt在目的資料夾內
class1.vb:
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports ICSharpCode.SharpZipLib.Zip
Imports ICSharpCode.SharpZipLib
Imports ICSharpCode.SharpZipLib.Core

Class Class1
Public Shared Sub ZipUnpack(ByVal zipFileName As String, ByVal targetDir As String)
      Dim fastZip As FastZip = New FastZip()
      Dim fileFilter As String = Nothing
      fastZip.ExtractZip(zipFileName, targetDir, fileFilter)
End Sub
End Class

事件觸發調用:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Class1.ZipUnpack("test.zip", "test")
End Sub