mainform.vb

C#的zip的源代码

' SharpZipLibrary samples
' Copyright (c) 2007, AlphaSierraPapa
' All rights reserved.
'
' Redistribution and use in source and binary forms, with or without modification, are
' permitted provided that the following conditions are met:
'
' - Redistributions of source code must retain the above copyright notice, this list
'   of conditions and the following disclaimer.
'
' - Redistributions in binary form must reproduce the above copyright notice, this list
'   of conditions and the following disclaimer in the documentation and/or other materials
'   provided with the distribution.
'
' - Neither the name of the SharpDevelop team nor the names of its contributors may be used to
'   endorse or promote products derived from this software without specific prior written
'   permission.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS &AS IS& AND ANY EXPRESS
' OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
' AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
' DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
' DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
' IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
' OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Imports System
Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms

Imports ICSharpCode.SharpZipLib.Core
Imports ICSharpCode.SharpZipLib.Zip

Namespace CreateZipFile
	
	Public Class MainForm
		Inherits System.Windows.Forms.Form
        Private label2 As System.Windows.Forms.Label
		Private label1 As System.Windows.Forms.Label
		Private txtSourceDir As System.Windows.Forms.TextBox
        Private folderBrowserDialog As System.Windows.Forms.FolderBrowserDialog
        Friend WithEvents btnBrowseForFolder As System.Windows.Forms.Button
        Friend WithEvents btnZipIt As System.Windows.Forms.Button
        Private txtZipFileName As System.Windows.Forms.TextBox

        Public Shared Sub Main()
            Dim fMainForm As New MainForm
            fMainForm.ShowDialog()
        End Sub

        Public Sub New()
            MyBase.New()
            '
            ' The Me.InitializeComponent call is required for Windows Forms designer support.
            '
            Me.InitializeComponent()
            '
            ' TODO : Add constructor code after InitializeComponents
            '
        End Sub

#Region " Windows Forms Designer generated code "
        ' This method is required for Windows Forms designer support.
        ' Do not change the method contents inside the source code editor. The Forms designer might
        ' not be able to load this method if it was changed manually.
        Private Sub InitializeComponent()
            Me.txtZipFileName = New System.Windows.Forms.TextBox
            Me.folderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
            Me.txtSourceDir = New System.Windows.Forms.TextBox
            Me.label1 = New System.Windows.Forms.Label
            Me.label2 = New System.Windows.Forms.Label
            Me.btnBrowseForFolder = New System.Windows.Forms.Button
            Me.btnZipIt = New System.Windows.Forms.Button
            Me.SuspendLayout()
            '
            'txtZipFileName
            '
            Me.txtZipFileName.Location = New System.Drawing.Point(16, 37)
            Me.txtZipFileName.Name = "txtZipFileName"
            Me.txtZipFileName.Size = New System.Drawing.Size(100, 20)
            Me.txtZipFileName.TabIndex = 2
            Me.txtZipFileName.Text = "Demo.Zip"
            '
            'txtSourceDir
            '
            Me.txtSourceDir.Location = New System.Drawing.Point(144, 37)
            Me.txtSourceDir.Name = "txtSourceDir"
            Me.txtSourceDir.Size = New System.Drawing.Size(256, 20)
            Me.txtSourceDir.TabIndex = 3
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(144, 7)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(224, 22)
            Me.label1.TabIndex = 1
            Me.label1.Text = "Source directory:"
            Me.label1.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(16, 7)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(100, 22)
            Me.label2.TabIndex = 0
            Me.label2.Text = "Zip File Name:"
            Me.label2.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'btnBrowseForFolder
            '
            Me.btnBrowseForFolder.Location = New System.Drawing.Point(406, 37)
            Me.btnBrowseForFolder.Name = "btnBrowseForFolder"
            Me.btnBrowseForFolder.Size = New System.Drawing.Size(32, 21)
            Me.btnBrowseForFolder.TabIndex = 6
            Me.btnBrowseForFolder.Text = "..."
            Me.btnBrowseForFolder.UseVisualStyleBackColor = True
            '
            'btnZipIt
            '
            Me.btnZipIt.Location = New System.Drawing.Point(455, 37)
            Me.btnZipIt.Name = "btnZipIt"
            Me.btnZipIt.Size = New System.Drawing.Size(75, 20)
            Me.btnZipIt.TabIndex = 7
            Me.btnZipIt.Text = "Zip It"
            Me.btnZipIt.UseVisualStyleBackColor = True
            '
            'MainForm
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(552, 86)
            Me.Controls.Add(Me.btnZipIt)
            Me.Controls.Add(Me.btnBrowseForFolder)
            Me.Controls.Add(Me.label2)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.txtSourceDir)
            Me.Controls.Add(Me.txtZipFileName)
            Me.Name = "MainForm"
            Me.Text = "MainForm"
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub
#End Region

        Private Sub BtnBrowseForFolderClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowseForFolder.Click
            If folderBrowserDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
                txtSourceDir.Text = folderBrowserDialog.SelectedPath
            End If
        End Sub

        Private Sub BtnZipItClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZipIt.Click
            Dim sourceDir As String = txtSourceDir.Text.Trim()

            ' Simple sanity checks
            If sourceDir.Length = 0 Then
                MessageBox.Show("Please specify a directory")
                Return
            Else
                If Not Directory.Exists(sourceDir) Then
                    MessageBox.Show(sourceDir, "Directory not found")
                    Return
                End If
            End If

            Dim targetName As String = txtZipFileName.Text.Trim()
            If targetName.Length = 0 Then
                MessageBox.Show("No name specified", "Zip file name error")
                Return
            End If

            Dim astrFileNames() As String = Directory.GetFiles(sourceDir)
            Dim strmZipOutputStream As ZipOutputStream

            strmZipOutputStream = New ZipOutputStream(File.Create(targetName))

            REM Compression Level: 0-9
            REM 0: no(Compression)
            REM 9: maximum compression
            strmZipOutputStream.SetLevel(9)

            Dim strFile As String

            For Each strFile In astrFileNames
                Dim strmFile As FileStream = File.OpenRead(strFile)
                Dim abyBuffer(strmFile.Length - 1) As Byte

                strmFile.Read(abyBuffer, 0, abyBuffer.Length)
                Dim objZipEntry As ZipEntry = New ZipEntry(strFile)

                objZipEntry.DateTime = DateTime.Now
                objZipEntry.Size = strmFile.Length
                strmFile.Close()
                strmZipOutputStream.PutNextEntry(objZipEntry)
                strmZipOutputStream.Write(abyBuffer, 0, abyBuffer.Length)

            Next

            strmZipOutputStream.Finish()
            strmZipOutputStream.Close()

            MessageBox.Show("Operation complete")
        End Sub
		
	End Class
End Namespace