https://foro.gambas-es.org/viewtopic.php?f=5&t=5091&p=29644#p29644
-----------------------------------
didier18
Jueves, 14 Enero 2016, 21:30

Re: Crearch_1.1.25
-----------------------------------
Hola todos
Aquí hay un código que evita el uso de 3 proceso.
En última instancia se trata de la misma (número de archivos y directorios en la pantalla), pero más rápido. Tenga en cuenta que los enlaces simbólicos no son tratados como estaban con el proceso.
tenemos que reemplazar el antiguo procedimiento
[code linenumbers=false syntax=gambas]Public Sub dchooser1_Change()
' InfoChange()
End[/code]
por
[code linenumbers=false syntax=gambas]Public Sub dchooser1_Change()
Dim i, j As Integer
Dim fileName, msgrep, msgfic As String
  For Each fileName In Dir(dchooser1.SelectedPath, "[^.]*", gb.Directory)
    Inc i
  Next
  For Each fileName In Dir(dchooser1.SelectedPath, "[^.]*", gb.File)
    Inc j
  Next
  msgrep = If(i > 1, (" répertoires "), (" répertoire "))
  msgfic = If(j > 1, (" fichiers."), (" fichier."))
  lbl[0].Caption = ("Il y a ") & i & msgrep & ("et ") & j & msgfic
End[/code]
el examen de archivo voluminosa debe ser reducida.
Aunque este procedimiento no afecta a la DirChooser y no FileChooser que se utiliza para varios tipos de compresión.

Para nuestros amigos del funcionamiento de la unidad es el siguiente ...
El bucle "i" utiliza para contar los directorios de bucle y "j" se utiliza para contar los archivos ...
msgrep sólo se utiliza para poner una 's' o no de acuerdo con el número de directorios.
msgfic hizo lo mismo para los archivos.

@ shordi puede usted decirme si este cambio mejora el tiempo de tratamiento en su PC ? Gracias.

saludos.


