Quantcast
Channel: Home Page http://blogs.dotnethell.it
Viewing all articles
Browse latest Browse all 24464

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

$
0
0

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   



Viewing all articles
Browse latest Browse all 24464

Trending Articles


FORTUITOUS EVENT


Pokemon para colorear


Girasoles para colorear


Long Distance Relationship Tagalog Love Quotes


“Ikaw lang ang mundo ko”


RE: Mutton Pies (frankie241)


Hagibis (1946) by Francisco V. Coching


Ka longiing longsem kaba skhem bad kaba khlain ka pynlong kein ia ka...


Vimeo 3.41.0 by Vimeo Inc


Vimeo Create - Video Maker & Editor 1.4.2 by Vimeo Inc