https://foro.gambas-es.org/viewtopic.php?f=1&t=4917&p=28430#p28430
-----------------------------------
shordi
Viernes, 09 Octobre 2015, 16:53

Re: Archivos Recientes....   Sugerencias
-----------------------------------
Bueno... claro. Es śolo que yo tenía en mente algo mucho más simple, si de lo que se trata es sólo de un combobox con los últimos abiertos. Con el Path sobra para eso... siempre que el último se añadiese al final, claro (de ahí lo de "puede ser un problema") algo así:

Para almacenar el archivo abierto en recientes:

[code linenumbers=false syntax=gambas]

Public Sub abrefichero(cPath As String)

    Dim cuando As String

    cuando = Format(Now(), "ddmmyyhhnnss")
    Settings["Recientes/" & cuando] = cPath 
    Settings.save

End

[/code]

y para rellenar el combo
[code linenumbers=false syntax=gambas]   

public sub rellenacombo()
   
    Dim paths As new string[]
    Dim n as integer
    Dim s as string

     For Each s In Settings.keys["Recientes"] 'almacenamos las recientes en el array
         paths.Add( Settings["Entorno/" & s])
     Next
     for n=paths.count -1 to 0 step -1  'añadimos al combo empezando por la útlima, que sería la más reciente
         micombo.Add(paths[n])
     next

End
[/code]

Esto funcionaría si Settings añade siempre al final de la etiqueta. Si no, fuese así, habría que recuperar del Settings el nombre de cada clave, que contiene la fecha y hora, y ordenarlo a partir de ahí.


