[Tutorial] Unzipping program

[Arteq]

C++ Code

Imports System.IO
Public Class Form1
 
    Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
        Using ofd As New OpenFileDialog
            ofd.Filter = "ZipFile|*.zip"
            If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim file As String = ofd.FileName
                Dim cu As New ClassUnzip(file, Path.Combine(Path.GetDirectoryName(file), "test_unzip_folder"))
                AddHandler cu.UnzipFinishd, AddressOf Unziped
                cu.UnzipNow()
            End If
        End Using
 
    End Sub
 
    Private Sub Unziped()
        MessageBox.Show("Unzipping finished")
    End Sub
 
End Class
 
 
Classe:
 
 
Imports System
Imports System.IO
 
Public Class ClassUnzip
 
    Private _file As String
    Private _folder As String
    Private _towhere As String
 
    Private _shell As Shell32.IShellDispatch2
 
    ''' <summary></summary>
    ''' <remarks></remarks>
    Public Event Unzipstart()
    ''' <summary></summary>
    ''' <remarks></remarks>
    Public Event UnzipFinishd()
 
    ''' <summary></summary>
    ''' <param name="file"></param>
    ''' <param name="towhere"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal file As String, ByVal towhere As String)
        _file = file
        _towhere = towhere
        _folder = Path.Combine(Path.GetDirectoryName(_file), _towhere)
        _shell = CreateObject("Shell.Application")
    End Sub
 
    ''' <summary></summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function UnzipNow() As Boolean
 
        If Directory.Exists(_folder) = False Then
            Directory.CreateDirectory(_folder)
        End If
 
        RaiseEvent Unzipstart()
 
        Dim temp As Shell32.Folder = _shell.NameSpace((_folder))
        If temp IsNot Nothing Then
            temp.CopyHere(_shell.NameSpace((_file)).Items)
        End If
 
        RaiseEvent UnzipFinishd()
 
        Return True
    End Function
 
    ''' <summary></summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property UnZipFile() As String
        Get
            Return _file
        End Get
        Set(ByVal value As String)
            _file = value
        End Set
    End Property
 
    ''' <summary></summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property UnzipTo() As String
        Get
            Return _towhere
        End Get
        Set(ByVal value As String)
            _towhere = value
        End Set
    End Property
 
End Class

[Pozzuh]

I didn't know you were smart enough to make something like this.

Good job.

[Arteq]

LOLWUT?!!!!!!!!!!!!!!!?!?!?!?!
U SAID IT?!?! MY MAIN HATER SAID "GJ" TO ME?!?!?!?!
I WILL GO FUCK MYSELF hocked:

[Pozzuh]

VB suck though





better?

Spoiler (Click to View)

[Arteq]

hmm... the phrase u said doesnt look friendly but it took away the feeling of deception)

---

i work with VB liiiiiiiitle bit. i <3 mapping. SDK & UDK. but it needs no tutorials in text. only in videos =3

[Pozzuh]

wat?

[AZUMIKKEL]

[Pozzuh]

[Arteq]

[AZUMIKKEL]

nobody figured out my way yet.