vb.net - Dynazip が機能しない

Question

Dynazip を使用してファイルを解凍しています。問題は、それが機能していないことです。最初の 3 行を追加して、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 のドキュメントもあります。見つからない。このコードは、別のプログラムからカット アンド ペーストしたものです。

ボブ