冰楓論壇

 找回密碼
 立即註冊
查看: 99|回覆: 0

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

[複製鏈接]

15

主題

1

好友

18

積分

新手上路

Rank: 1

UID
3587
帖子
182
主題
15
精華
0
積分
18
楓幣
321
威望
14
存款
722
贊助金額
0
推廣
0
GP
15
閱讀權限
10
性別
保密
在線時間
80 小時
註冊時間
2012-1-30
最後登入
2019-7-8

2015年紀念勳章 太陽勳章 神手勳章 私服達人 音樂勳章 懶人勳章 性別(男) instagram紀念勳章 2015中秋節紀念勳章 2018年紀念勳章

發表於 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檔案
messageImage_1558597113354.jpg

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

您需要登入後才可以回帖 登入 | 立即註冊

正在連接伺服器...
打開冰楓聊天室
廣告刊登意見回饋關於我們職位招聘

Copyright © 2011-2019 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|意見反饋|手機版|Archiver|冰楓論壇

GMT+8, 2019-7-17 08:17

APP Store下載 Play Store下載
回頂部