Dynazip不能正常工作

Question

我正在使用Dynazip解壓縮文件。問題是它不工作。我添加了前三行以確保zip存在，它通過它，但總是返回-1，表示沒有找到文件。

If File.Exists(l_ZipFile) = False Then 
      Return -1 
     End If 

     Dim l_intCounter As Integer 
     With m_objUnzip 
      .ZIPFile = l_ZipFile 
      .Filespec = sFile2Get 
      .RecurseFlag = True 
      .Destination = Path.GetTempPath 
      .QuietFlag = True 
      .ActionDZ = CDUnZipNET.DUZACTION.UNZIP_COUNTALLZIPMEMBERS 
      For l_intCounter = 0 To .ReturnCount - 1 
       .UnZIPIndex = l_intCounter 
       .ActionDZ = DUZACTION.UNZIP_GETINDEXEDZIPINFO 
       If UCase(sFile2Get) = UCase(Right(.zi_FileName, Len(sFile2Get))) Then 
        Return .zi_Index 
       End If 
      Next 

      Return -1 
     End With 

我被要求讓Dynazip工作。我已經用另一個第三方產品解決了這個問題。還有Dynazip的任何文檔。我找不到它。此代碼是從另一個程序剪切和粘貼的。

鮑勃

Answer 1

我發現那個寫Dynazip該公司歇業，但它是可以購買的源代碼，如果你想要去的路線。

我發現我們從Component One獲得C1Zip的許可證，因此我們決定使用該產品。

如果你正在尋找一個免費的產品，標誌性的拉鍊是我的工作產品。按照這個線程獲取更多細節。

Unzip a zip file in silverlight