https://foro.gambas-es.org/viewtopic.php?f=5&t=7975&p=47972#p47972
-----------------------------------
tincho
Lunes, 20 Abril 2020, 15:32

Obtener Las Propiedades De Un Archivo
-----------------------------------
Hola a todos.
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:
[code linenumbers=false syntax=gambas]
  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
[/code]
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.


