ListBox1 geeft bestanden niet gesorteerd weer.

[samabert]

Hallo forumleden,

Is het mogelijk om volgende code aan te passen zodanig dat de scans in de ListBox1 weergegeven worden zoals in de gesorteerde map scan.
In de map scan zijn de bestanden (enkel PDF) gesorteerd op datum, het bestand met de meest recente datum bovenaan.
Meer info in voorbeeld.

Ik vind meerdere zaken terug over refresh van de ListBox, maar ik begrijp niet hoe dit uit te voeren.

  Private Sub Userform_initialize()

    Me.StartUpPosition = 0
    Me.Top = Application.Top + 320
    Me.Left = Application.Left + Application.Width - Me.Width - 920

    Application.EnableEvents = False
    C00 = "C:\Scan\"
    c01 = Dir(C00 & "*.pdf")
    With CreateObject("scripting.filesystemobject")
        Do While c01 <> ""
            c02 = c02 & "|" & .GetBaseName(C00 & c01)
            c01 = Dir
        Loop
    End With
    With ListBox1
        .ListIndex = -1
        .List = Split(Mid(c02, 2), "|")
    End With
    Application.EnableEvents = True

End Sub

Alvast bedankt.
M.v.g.
Marc

 

[edmoor]

Zo:

Private Sub Userform_initialize()
    Me.StartUpPosition = 0
    Me.Top = Application.Top + 320
    Me.Left = Application.Left + Application.Width - Me.Width - 920
    
    ListBox1.List = Split(CreateObject("WScript.Shell").Exec("cmd /c dir /b/o-d C:\Scan\*.pdf").StdOut.ReadAll, vbCrLf)
End Sub

Overbodige regels zijn verwijderd.

 

[samabert]

edmoor,

Dat is snel en werkt volledig. :thumb:
Super bedankt voor de oplossing.

Mvg.
Marc