https://foro.gambas-es.org/viewtopic.php?f=1&t=2851&p=16146#p16146
-----------------------------------
Shell
Lunes, 28 Enero 2013, 00:24

Contar Archivos De Un FileView
-----------------------------------
Hola Comunidad!.

Estaba probando los controles DirView y FIleView. Es un  ejemplo de explorador de archivos.
Seleccionaba la entrada en DirView y me mostraba el contenido de archivos en ese directorio en un Fileview.

Utilice para el ejemplo dos etiquetas.Una para si seleccionaba el archivo en el FileView me mostrase la ruta entera.
Y otra en la que al seleccionar un directorio me mostrase cuantos archivos existían en ese directorio.

Bueno.El problema que me surgió es que no salia bien el numero de archivos.No encuentro la propiedad adecuada.
Probé con Count, con Children.No obtuve el resultado deseado y hacia efectos raros, hasta contar con retraso.  :roll: 
No existe un evento Change en este control.

Al final encontré una manera pero me contaba también los ocultos, así que tuve que jugar
con las instrucciones de cadena.

[code linenumbers=false syntax=gambas]
Public Sub DirView1_Select()  
  Dim cuentanoocultos As Integer
  Dim archivo As String   
    
  FileView1.Dir = DirView1.Current    
  
 For Each archivo In (Dir(DirView1.Current, "", gb.File))
    If Left$(archivo, 1) <> "." Then cuentanoocultos += 1
 Next
 Label3.Text = cuentanoocultos
  
End
[/code]

¿ No existe una propiedad adecuada o un evento para esto ?.

Saludos


