0

我正在使用 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 的任何文档。我找不到它了。这段代码是从另一个程序中剪切和粘贴的。

鲍勃

4

1 回答 1

0

我发现编写 Dynazip 的公司倒闭了，但是如果你想走这条路，可以购买源代码。

我发现我们拥有 Component One 的 C1Zip 许可证，因此我们决定使用该产品。

如果您正在寻找免费产品，标志性 zip 是我必须努力的产品。请关注此线程以获取更多详细信息。

在 Silverlight 中解压缩一个 zip 文件

于 2013-04-29T15:53:44.667 回答