Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 73.755
  • Views Posts: 551.418
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB.NET - CREARE ED ESTRARRE FILE BZip2 CON DotNetZip Librery (Codice)

VB.NET - CREARE ED ESTRARRE FILE BZip2 CON DotNetZip Librery (Codice)


Oggi vi voglio mettere a disposizione un progetto che utilizza la Libreria DotNetZip che permette di creare file BZip2 e quindi comprimere ma anche Estrarre i file BZip2.

CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET

ComprimiAllFileZip( "c:\Documenti","C:\prova_ZIP.bz2")

ComprimiAllFileZip("C:\Documenti","c:\prova_ZIP_Password.bz2", "Password")

 EstrarreAllFileZip("c:\Documenti\prova_ZIP.bz2","c:\Documenti\Estrai")

 EstrarreAllFileZip("c:\Documenti\prova_ZIP_Password.bz2","c:\Documenti\Estrai","Password") 

 

CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET

Private Sub ComprimiAllFileZip(ByVal Directory As String, ByVal zipFileToCreate As String, Optional ByVal Password As String = Nothing)

        Dim DirecotryName As String = Path.GetFileName(Directory)

        Using zip As New ZipFile()

            If (Password IsNot Nothing) Then

                zip.Password = Password

            End If

            'zip.AddDirectory(@"MyDocuments\ProjectX", "ProjectX");

            zip.AddDirectory(Directory, DirecotryName)

            zip.Comment = "Qursto file è stato creato il " & System.DateTime.Now.ToString("G")

            zip.CompressionMethod = CompressionMethod.BZip2

            zip.Save(zipFileToCreate)

        End Using


    End Sub


    Private Sub EstrarreAllFileZip(ByVal ExistingZipFile As String, ByVal BaseDirectory As String, Optional ByVal Password As String = Nothing)

        Using zip As ZipFile = ZipFile.Read(ExistingZipFile)

            For Each e As ZipEntry In zip

                If Password IsNot Nothing Then

                    e.ExtractWithPassword(BaseDirectory, Password)

                Else

                    e.CompressionMethod = CompressionMethod.BZip2

                    e.Extract(BaseDirectory, ExtractExistingFileAction.OverwriteSilently)

                End If

            Next

        End Using

    End Sub


CODICE VISUAL STUDIO 2010 - VISUAL C# - C#

      ComprimiAllFileZip(@"C:\Documenti", @"C:\prova_ZIP.bz2");

     ComprimiAllFileZip(@"C:\Documenti", @"C:\prova_ZIP_Password.bz2", "Password");

     EstrarreAllFileZip(@"c:\Documenti\prova_ZIP.bz2",@"c:\Documenti\Estrai");

     EstrarreAllFileZip(@"c:\Documenti\prova_ZIP_Password.bz2",@"c:\Documenti\Estrai","Password");
     

CODICE VISUAL STUDIO 2010 - VISUAL C# - C#

   private void ComprimiAllFileZip(string Directory, string zipFileToCreate, string password = null)

        {

            string DirecotryName = Path.GetFileName(Directory);

            using (ZipFile zip = new ZipFile())

            {

                if (password != null)

                {

                    zip.Password = password;

                }

                //zip.AddDirectory(@"MyDocuments\ProjectX", "ProjectX");

                zip.AddDirectory(Directory, DirecotryName);

                zip.Comment = "Qursto file è stato creato il " + System.DateTime.Now.ToString("G");

                zip.CompressionMethod = CompressionMethod.BZip2;

                zip.Save(zipFileToCreate);

            }

  } 

 private void EstrarreAllFileZip(string ExistingZipFile, string BaseDirectory, string Password = null)

        {

            using (ZipFile zip = ZipFile.Read(ExistingZipFile))

            {

                foreach (ZipEntry e in zip)

                {

                    if (Password != null)

                    {

                        e.ExtractWithPassword(BaseDirectory, Password);

                    }

                    else 

                    {

                        e.CompressionMethod = CompressionMethod.BZip2;

                        e.Extract(BaseDirectory, ExtractExistingFileAction.OverwriteSilently);

                    }

                }

            }

        }



Potete scaricare il file d'esempio :

Password :  "ImaginSystem" 


By ImaginSystems & Queen Gin   


Categoria: VB.NET
martedì, 12 nov 2013 Ore. 11.12

Messaggi collegati


Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003