Option Explicit


Private Sub Dir1_Change()
    Dim lt      As ListItem
    Dim file    As String
    Dim fs      As Object, fl As Object
    Dim items   As Long
    Dim fls()   As file
    Dim i       As Long, j As Long
    Dim a       As Variant, b As Variant
    On Local Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    Me.lfiles.ListItems.Clear
    file = Dir(Me.Dir1 + "\*.*")
    Do Until file = ""
        Set fl = fs.GetFile(Me.Dir1 + "\" + file)
        items = items + 1
        ReDim Preserve fls(1 To items)
        Set fls(items) = fs.GetFile(Me.Dir1 + "\" + file)
        file = Dir()
    Loop
    'Ordenar datos según DateLastModified
    For i = 1 To items - 1
        For j = i + 1 To items
            If fls(i).DateLastModified > fls(j).DateLastModified Then
                'trasponemos items
                Set a = fls(i)
                Set fls(i) = fls(j)
                Set fls(j) = a
            End If
        Next j
    Next i
    'Actualizar Lista de ficheros
    For i = 1 To items
        Set lt = Me.lfiles.ListItems.Add(, , fls(i).Name)
        lt.SubItems(1) = fls(i).DateCreated
        lt.SubItems(2) = CStr(fls(i).Size)
        lt.SubItems(3) = fls(i).Type
    Next i
    Me.Refresh
End Sub