Foro de elhacker.net

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

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  :¬¬

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  ;D .


GRACIAS POR LEER!!!