Imports ICSharpCode.SharpZipLib.Zip
 
Public Class Form1
 
    WithEvents expander As New ICSharpCode.SharpZipLib.Zip.FastZip
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button2.Click
 
        Dim dir As String = "P:\Visual Studio 2008\"
        Try
            ' Suchen der Datei mit der Endung 'zip'
            For Each Dateiname As String In IO.Directory.GetFiles(dir)
                If Dateiname.EndsWith("zip") Then
                    expander.ExtractZip(Dateiname, "P:\Visual Studio 2008\", _
                      "\pfc.pfc")
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Sub
 
End Class