Solved

Create VB.Net applcation to unzip into a folder without using a tthird party DLL?

Posted on 2010-08-26
7
793 Views
Last Modified: 2012-05-10
Hi ALL!!!!


I am Selvam...

I have the doubt!

I used System.IO.Packaging & System.IO.Compression to make zip files...

Similarly Can we do Unzip with that above packages?

Without any third party DLL is it possible to create to unzip files into a folder which I specified?

0
Comment
Question by:Selvam_cse
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 

Author Comment

by:Selvam_cse
ID: 33530421
Please give answer
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 33530443
... there are no zip/unzip functions in vb.net ...

See also this thread: http://www.codeguru.com/forum/showthread.php?t=443029
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 33530480
The .NET Framework includes GZipStream and related classes, but they only support compression, not the standard ZIP file structure. This article explains how you can handle correctly zipping and unzipping folders and files including using a zip password
http://eggheadcafe.com/tutorials/aspnet/9ce6c242-c14c-4969-9251-af95e4cf320f/zip--unzip-folders-and-f.aspx

0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:Selvam_cse
ID: 33530503
Hi,

So It is not possible to unzip without a third party DLL?
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 33530522
Like both links already explain: No.
0
 
LVL 28

Accepted Solution

by:
Ark earned 500 total points
ID: 33540176
Heh, impossible :)  It's a piece of cake!
Add reference to Microssoft Shell and Automation (COM)

    Private Sub Unzip(ByVal destFolder As String, ByVal srcZip As String)
        Dim oShell As New Shell32.Shell
        Dim oDestFolder As Shell32.Folder
        If Not System.IO.Directory.Exists(destFolder) Then
            System.IO.Directory.CreateDirectory(destFolder)
        End If
        oDestFolder = oShell.NameSpace(destFolder)
        oDestFolder.CopyHere(oShell.NameSpace(srcZip).Items)
        oDestFolder = Nothing
        oShell = Nothing
    End Sub
0
 

Author Closing Comment

by:Selvam_cse
ID: 33734375
Thanks Buddy
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
VB.NET 2008 - SQL Timeout 9 51
Error message when using PrintSocket.Send 7 30
ASP.NET Calendar Control 5 31
ModalPopup  question 22 40
Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question