❓ Unzipping files.

How do u make a visual basic function/code to unpack a zip file?

Could anyone help please
im not new in coding

Here ya go!

Code:

Imports System
' This namespace contains the main class - ZipForge
' Don't forget to add a reference to the ZipForge 
' assembly to your project references
Imports ComponentAce.Compression.ZipForge
' This namespace contains ArchiverException class required for error handling
Imports ComponentAce.Compression.Archiver

Module UnzipFile
    Sub Main()
        Dim archiver As New ZipForge()
        Try
            ' The name of the ZIP file to unzip
            archiver.FileName = "C:\test.zip"
            ' Open an existing archive
            archiver.OpenArchive(System.IO.FileMode.Open)
            ' Default path for all operations                
            archiver.BaseDir = "C:\Temp"
            ' Extract all files from the archive to C:\Temp folder
            archiver.ExtractFiles("*.*")
            ' Close archive
            archiver.CloseArchive()
        ' Catch all exceptions of the ArchiverException type
        Catch ae As ArchiverException
            Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
            ' Wait for keypress
            Console.ReadLine()
        End Try
    End Sub
End Module

Originally Posted by TheBest-1337

Here ya go!

Code:

Imports System
' This namespace contains the main class - ZipForge
' Don't forget to add a reference to the ZipForge 
' assembly to your project references
Imports ComponentAce.Compression.ZipForge
' This namespace contains ArchiverException class required for error handling
Imports ComponentAce.Compression.Archiver

Module UnzipFile
    Sub Main()
        Dim archiver As New ZipForge()
        Try
            ' The name of the ZIP file to unzip
            archiver.FileName = "C:\test.zip"
            ' Open an existing archive
            archiver.OpenArchive(System.IO.FileMode.Open)
            ' Default path for all operations                
            archiver.BaseDir = "C:\Temp"
            ' Extract all files from the archive to C:\Temp folder
            archiver.ExtractFiles("*.*")
            ' Close archive
            archiver.CloseArchive()
        ' Catch all exceptions of the ArchiverException type
        Catch ae As ArchiverException
            Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
            ' Wait for keypress
            Console.ReadLine()
        End Try
    End Sub
End Module

Thanks for C+P. But do provide DLL or at least link to it.

Originally Posted by TheBest-1337

Here ya go!

Code:

Imports System
' This namespace contains the main class - ZipForge
' Don't forget to add a reference to the ZipForge 
' assembly to your project references
Imports ComponentAce.Compression.ZipForge
' This namespace contains ArchiverException class required for error handling
Imports ComponentAce.Compression.Archiver

Module UnzipFile
    Sub Main()
        Dim archiver As New ZipForge()
        Try
            ' The name of the ZIP file to unzip
            archiver.FileName = "C:\test.zip"
            ' Open an existing archive
            archiver.OpenArchive(System.IO.FileMode.Open)
            ' Default path for all operations                
            archiver.BaseDir = "C:\Temp"
            ' Extract all files from the archive to C:\Temp folder
            archiver.ExtractFiles("*.*")
            ' Close archive
            archiver.CloseArchive()
        ' Catch all exceptions of the ArchiverException type
        Catch ae As ArchiverException
            Console.WriteLine("Message: {0} Error code: {1}", ae.Message, ae.ErrorCode)
            ' Wait for keypress
            Console.ReadLine()
        End Try
    End Sub
End Module

omjizz it says dat da ComponentAce.Compression.ZipForge namespayce not da found !!!!!1 D:

❓ Unzipping files.

Post a Reply

Tags for this Thread