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!!!