0

Hai guys,

How can I make my application to extract files inside .rar/zip archive in application.startupPath directory!?

ty:*

Edited by FoxSpirit: n/a

3
Contributors
2
Replies
4
Views
5 Years
Discussion Span
Last Post by iampord
0
Imports Shell32 'Add Shell32 to reference 
Public Class Form1
    Public sc As Shell32.Shell 'Declare Shell32
Public Function ExtractFiles() As Boolean
        Try
           sc = New Shell32.Shell
           Dim DestinationFlder As Shell32.Folder = sc.NameSpace("C:\")
           Dim SourceFolder As Shell32.Folder = sc.NameSpace _
           (Application.StartupPath & "\myzipfile.zip")
           DestinationFlder.CopyHere(SourceFolder)'CopyHere is replaceable by CutHere
           System.Threading.Thread.Sleep(500)
        Catch ignore As Exception
           Return False
        End Try
        Return True
    End Function
End Class

******************************************************************************
iampordXtiga

It's really hard to find the right answer if you don't know the right question.
******************************************************************************

Edited by Narue: added code tags

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.