En otro hilo plantee una forma de recorrer las propiedades de un objeto listando antes las propiedades de la clase que se uso de "molde" para cear dicho objeto.
Bien, ahora intento aplicar esta misma mecánica para listar la propiedades de un archivo y he heclo lo suiguiente:
Dim pro As Variant
Dim c As Class
Dim s As String
Dim tpro As New String[]
Dim st As Stat
c = Classes["Stat"]
For Each s In c.Symbols
Select c[s].Kind
Case Class.Property '
tpro.Add(c[s].Name)
End Select
Next
If Stat(cdir).Type = gb.Directory Then
For Each t In fil.RListFiles(cdir, ["project"], True)
st = Stat(t)
For Each pro In tpro
Print st.Property[pro]
Next
Next
Endif
Dim c As Class
Dim s As String
Dim tpro As New String[]
Dim st As Stat
c = Classes["Stat"]
For Each s In c.Symbols
Select c[s].Kind
Case Class.Property '
tpro.Add(c[s].Name)
End Select
Next
If Stat(cdir).Type = gb.Directory Then
For Each t In fil.RListFiles(cdir, ["project"], True)
st = Stat(t)
For Each pro In tpro
Print st.Property[pro]
Next
Next
Endif
Que como podaran comprobar, no funciona.
¿Alguna idea incluso, sin usar este método para obtener una lista de todas las propiedades de un archivo?
Saludos.
