[source]Enumerar los archivos dentro de una carpeta comprimida en .zip

[LeandroA]

hola este es un pequeño código para poder listar los archivos dentro de una carpeta.zip no es nada del otro mundo pero le pude ser útil a alguien

Código: (vb) [Seleccionar]

Option Explicit
Dim objShell As Object

Private Sub Form_Load()
    Set objShell = CreateObject("Shell.Application")

    FindInZipFolder "C:\CarpetaComprimida.zip"
   
    Set objShell = Nothing
End Sub


Private Sub FindInZipFolder(ByVal Root As String, Optional ByVal sPath As String)
    Dim objFolder As Object
    Dim oItem As Object
    Dim sFolder As String
    Dim sFile As String

    Set objFolder = objShell.NameSpace(CVar(Root & sPath))
   
    If objFolder Is Nothing Then Exit Sub
   
    For Each oItem In objFolder.Items()
        If oItem.IsFolder Then
            sFolder = Root & "\" & oItem.Path
            Debug.Print sFolder
            FindInZipFolder Root, "\" & oItem.Path
        Else
            sFile = Root & "\" & oItem.Path
            Debug.Print sFile
        End If
    Next

End Sub


[BackSlash]

Pues a mi me parece buenisimo el codigo. Mas que nada para ver el shellaplication. Ya me lo he guardado. Gracias