VB_CLS_ZIP

'****** HAY QUE REFERENCIAR [Ionic.Zip.dll]
Imports Ionic.Zip


Public Class ZIP

    Private obZIP As New ZipFile

    Public Sub New()

    End Sub


#Region "PROPIEDADES"

    Private _Nombre As String
    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Set(ByVal value As String)
            _Nombre = value
            If _Ruta <> "" Then _RutaFic = _Ruta & _Nombre
            obZIP.Name = _Nombre
        End Set
    End Property

    Private _Ruta As String
    Public Property Ruta() As String
        Get
            Return _Ruta
        End Get
        Set(ByVal value As String)
            _Ruta = value
            If _Nombre <> "" Then _RutaFic = _Ruta & _Nombre
            'obZIP.AddDirectory(_Ruta)
        End Set
    End Property

    Private _RutaFic As String
    Public Property RutaFic() As String
        Get
            Return _RutaFic
        End Get
        Set(ByVal value As String)
            _RutaFic = value
            _Ruta = DameRuta(_RutaFic)
            _Nombre = DameFichero(_RutaFic)
        End Set

    End Property

    Private _iFicheros As Integer
    Public Property iFicheros() As Integer
        Get
            Return _iFicheros
        End Get
        Set(ByVal value As Integer)
            _iFicheros = value
        End Set
    End Property

    Private _sError As String
    Public Property sError() As String
        Get
            Return _sError
        End Get
        Set(ByVal value As String)
            _sError = value
        End Set
    End Property

#End Region

#Region "MÉTODOS_PRIVADOS"

    Private Function DameRuta(RutaFic As String) As String

        Dim iPos As Integer
        Dim sRuta As String = StrReverse(RutaFic)

        iPos = InStr(1, sRuta, "\")
        sRuta = Right(sRuta, Len(sRuta) - iPos + 1)
        sRuta = StrReverse(sRuta)
        DameRuta = sRuta

    End Function

    Private Function DameFichero(RutaFic As String) As String

        Dim iPos As Integer
        Dim sFic As String = StrReverse(RutaFic)

        iPos = InStr(1, sFic, "\")
        sFic = Left(sFic, iPos - 1)
        sFic = StrReverse(sFic)
        DameFichero = sFic

    End Function

#End Region

#Region "MÉTODOS_PÚBLICOS"

    Public Sub DescomprimirTodo(sRuta As String)
        On Error GoTo TrataError

        Dim ArchivoZIP As ZipFile = ZipFile.Read(_RutaFic)
        ArchivoZIP.ExtractExistingFile = ExtractExistingFileAction.OverwriteSilently
        ArchivoZIP.ExtractAll(sRuta)
        ArchivoZIP = Nothing

        Exit Sub
TrataError:
        _sError = "[ZIP.DescomprimirTodo]" & vbCrLf & Err.Description
    End Sub

    Public Sub DescomprimirArchivo(sRuta As String, Archivo As String, Optional bSobreEscribir As Boolean = False)
        On Error GoTo TrataError

        Dim bEncontrado As Boolean = False
        Dim ArchivoZIP As ZipFile = ZipFile.Read(_RutaFic)
        Dim iAccion As Integer = 2

        If bSobreEscribir Then iAccion = 1


        Dim e As ZipEntry
        For Each e In ArchivoZIP
            If e.FileName = Archivo Then
                e.Extract(sRuta, iAccion)
                bEncontrado = True : Exit For
            End If
        Next

        If Not bEncontrado Then _sError = "[ZIP.DescomprimirArchivo]" & vbCrLf & "Archivo (" & Archivo & ") no Encontrado"
        ArchivoZIP = Nothing

        Exit Sub
TrataError:
        _sError = "[ZIP.DescomprimirArchivo]" & vbCrLf & Err.Description
    End Sub

    '    Public Sub DescomprimirCarpeta(sRuta As String, Carpeta As String)
    '        On Error GoTo TrataError

    '        Dim bEncontrado As Boolean = False
    '        Dim ArchivoZIP As ZipFile = ZipFile.Read(_RutaFic)

    '        Dim e As ZipEntry
    '        For Each e In ArchivoZIP
    '            If e.IsDirectory And e.FileName = Carpeta & "/" Then
    '                e.Extract(sRuta)
    '                bEncontrado = True : Exit For
    '            End If
    '        Next

    '        If Not bEncontrado Then _sError = "[ZIP.DescomprimirCarpeta]" & vbCrLf & "Carpeta (" & Carpeta & ") no Encontrada"
    '        ArchivoZIP = Nothing

    '        Exit Sub
    'TrataError:
    '        _sError = "[ZIP.DescomprimirCarpeta]" & vbCrLf & Err.Description
    '    End Sub

    Public Sub AgregarArchivo(Archivo As String)
        On Error GoTo TrataError

        obZIP.AddFile(Archivo, "")

        Exit Sub
TrataError:
        _sError = "[ZIP.AgregarArchivo]" & vbCrLf & Err.Description
    End Sub

    Public Sub AgregarCarpeta(Carpeta As String, RutaCarpeta As String)
        On Error GoTo TrataError

        obZIP.AddDirectory(Carpeta, RutaCarpeta)

        Exit Sub
TrataError:
        _sError = "[ZIP.AgregarArchivo]" & vbCrLf & Err.Description
    End Sub

    Public Sub Guardar()
        On Error GoTo TrataError

        obZIP.Save(_RutaFic)

        Exit Sub
TrataError:
        _sError = "[ZIP.Guardar]" & vbCrLf & Err.Description
    End Sub

    '    Public Sub Reiniciar()
    '        On Error GoTo TrataError

    '        ZipFile.Read(_RutaFic)

    '        For Each item In obZIP
    '            obZIP.RemoveEntry(item)
    '        Next

    '        Exit Sub
    'TrataError:
    '        _sError = "[ZIP.Reiniciar]" & vbCrLf & Err.Description
    '    End Sub

#End Region



End Class