Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: LeandroA en Agosto 30, 2010, 11:57:22 pm

Título: [source]Enumerar los archivos dentro de una carpeta comprimida en .zip
Publicado por: LeandroA en Agosto 30, 2010, 11:57:22 pm

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


Título: Re:[source]Enumerar los archivos dentro de una carpeta comprimida en .zip
Publicado por: BackSlash en Agosto 31, 2010, 09:31:40 pm

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