Hallo Adri,

ivm met de lijsten meteo en ritten, die zouden inderdaad beperkt kunnen worden
hoe kan ik dat best voor mekaar krijgen?

In één van je e-mails las ik dat je de lijsten al aflopend kon sorteren. Je zou dus gewoon het aantal in te lezen items kunnen vastleggen.
Andere mogelijkheid : met het dir-commando lees je nu al alle bestanden in. Een volgende instructie zou
fdatum = FileDateTime(fpath & fname)kunnen zijn, en dat kan je dan gebruiken om te kijken hoeveel dagen je teruggaat om ze op te nemen in de lijst.

maar dan misschien wel met een mogelijkheid tot volledige lijst

Het aantal dagen dat je teruggaat kan je in je procedure schrijven maar evengoed uit een cel halen. In diezelfde cel zou je een specifieke waarde kunnen voorzien die dan voor de volledige lijst zorgt.

Hallo,

Bij mijn weten kan je de volgorde waarmee door het dir-commando bestanden worden opgehaald niet beïnvloeden. In elk geval zal je dir dus moeten gebruiken tot een lege string wordt opgehaald.
Het is me al eerder opgevallen dat je ze eerst in een array stopt en pas later in een listbox, en dus heb je mogelijkheden te over om in te grijpen in wat uiteindelijk in je listbox zal komen en in welke volgorde.
Zoals eerder gezegd zou je ook de bestandsdatum kunnen oproepen en verder als criterium gebruiken, ofwel, aangezien ik heb begrepen dat de naam van je bestanden ook een chronologische volgorde aanhoudt, die eerst in omgekeerde volgorde sorteren, en dan kan bv. "for i=1 to 5" moeilijk fout gaan.

Tussen haakjes, ik heb in je bestand volgend sorteeralgoritme aangetroffen :

    With Me.ListBox1
        For m = 0 To ListBox1.ListCount - 2
            For k = 0 To ListBox1.ListCount - 2
                If .List(k) < .List(k + 1) Then
                    knoop = .List(k)
                    .List(k) = .List(k + 1)
                    .List(k + 1) = knoop
                End If
            Next k
        Next m
    End With
Deze is even eenvoudig (en dus ook ver van de snelste), maar toch al merkelijk sneller, zeker als het over wat meer elementen gaat :

    With Me.ListBox1
        For m = 0 To ListBox1.ListCount - 2
            For k = m+1 To ListBox1.ListCount - 1
                If .List(k) < .List(m) Then
                    knoop = .List(k)
                    .List(k) = .List(m)
                    .List(m) = knoop
                End If
            Next k
        Next m
    End With

Ik vermoed dat je ze eerst in je array steekt, daar verder niets doet, en vervolgens de eerste 5 in je listbox steekt.
Als je op naam wil werken raakt dit makkelijkst opgelost als je eerst je array sorteert en dan een beperkt aantal in de listbox steekt.

kan je misschien een vb geven pitufo?

Je hebt eerst dit in je procedure staan (gevolgd door identiek stukje voor bmp-files) :

    fName = Dir(fPath & "*.jpg")
    While fName <> ""
        I = I + 1
        ReDim Preserve fileList(1 To I)
        fileList(I) = fName
        fName = Dir()
    Wend

Daarmee stop je alle afbeeldingen in een array genaamd fileList

Als je ze daarin sorteert op naam, bv. op deze manier (ook I nemen we mee uit voorgaande code) :

     For m = 1 To I - 1
         For k = m+1 To I
             If fileList(k) > fileList(m) Then
                 knoop = fileList(k)
                 fileList(k) = fileList(m)
                 fileList(m) = knoop
             End If
         Next k
     Next m

en daarna beslist hoeveel er in je listbox moeten (bv. 5) :

For I = 1 To 5
     Me.ListBox1.AddItem fileList(I)
Next

dan zou je er moeten zijn.

en als het kan met wat uitleg over de verschillende stappen.

Meer nog : ik denk dat de verschillende stappen dan geen geheimen meer voor je zullen hebben