とりあえずJ# .NET クラスライブラリがインストールされているのを前提にします。
上記クラスライブラリを参照設定して、
Imports java.util.zip
'ZIPファイル保持変数
Private m_CurrentFile As ZipFile
'------------------------------------------------------------
'対象ZIPファイルをリストビューに展開表示
'------------------------------------------------------------
Private Sub DisplayZipEntries()
Dim enmEntrie As java.util.Enumeration
Dim entrie As ZipEntry
enmEntrie = m_CurrentFile.entries
'リストビュー描画一時停止
lvwZipFiles.BeginUpdate()
'リストビューアイテムクリアー
lvwZipFiles.Items.Clear()
'ZIPファイル内のアイテム列挙
Do While (enmEntrie.hasMoreElements = True)
entrie = enmEntrie.nextElement
If (entrie.isDirectory = True) Then
'フォルダの場合
Else
'ファイルの場合
Dim item As New ListViewItem(System.IO.Path.GetFileName(entrie.getName))
item.SubItems.Add(entrie.getSize().ToString())
item.SubItems.Add(entrie.getCompressedSize().ToString())
item.SubItems.Add(System.IO.Path.GetDirectoryName(entrie.getName))
'リストビューアイテム追加
lvwZipFiles.Items.Add(item)
End If
Loop
'リストビュー描画再開
lvwZipFiles.EndUpdate()
End Sub
'------------------------------------------------------------
'ファイルを開く
'------------------------------------------------------------
Private Sub mnuFile_Open_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFile_Open.Click
If (zipOpenFileDialog.ShowDialog = DialogResult.OK) Then
m_CurrentFile = New ZipFile(zipOpenFileDialog.FileName)
Call DisplayZipEntries()
End If
End Sub
'------------------------------------------------------------
'終了する
'------------------------------------------------------------
Private Sub mnuFile_Exit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuFile_Exit.Click
Me.Close()
End Sub
やっぱり、VB.NETよりするもんじゃないな。