[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


Fuente original en http://www.leandroascierto.com.ar/foro/index.php?topic=457.0

Código (vb) [Seleccionar] Expandir


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


PD: que colorinche que esta el Geshi 

[79137913]

HOLA!!!


GENIAL, ESTABA BUSCANDO ESO!!!

Leandro, disculpa, no tenes idea como listar el nombre de las PC en red con sus respectivos IP locales?

Pd: El Geshi de VISUAL FOX PRO anda joya  .


GRACIAS POR LEER!!!