sayın @alicimri 'nin çalışmasına ek olarak aşağıdaki kodları deneyebilirsiniz
Önce bir modül oluşturup aşağıdaki kodları ekleyin

Function DosyaDonguSirali(AnaKls, IncludeSubFolders As Boolean, Optional ListeKutusu As Object)



Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(AnaKls)

Set objfile = CreateObject("Scripting.FileSystemObject")

Set objSubFolder = CreateObject("Scripting.FileSystemObject")

    Set HdfLst = ListeKutusu

    

    'Klasördeki dosya adlarını alma

    For Each objfile In objFolder.Files

      TxtAdres = Left(objfile.Path, InStrRev(objfile.Path, "\") - 1)

      StrVeri = TxtAdres & ";" & objfile.Name & ";" & objfile.DateCreated

        With HdfLst

        StrSay = .ListCount

            

            If StrSay = 0 Then

                .AddItem StrVeri

            Else

                For xIndx = 0 To StrSay - 1

                If CDbl(CDate(.Column(2, xIndx))) < CDbl(objfile.DateCreated) Then

                    .AddItem StrVeri, xIndx

                    Exit For

                Else

                If xIndx = StrSay - 1 Then .AddItem StrVeri

                End If

                Next xIndx

            End If

        End With

    Next objfile

    

    'Alt klasörlerde dolaşma

    If IncludeSubFolders Then

        For Each objSubFolder In objFolder.SubFolders

            Call DosyaDonguSirali(objSubFolder, True, ListeKutusu)

        Next objSubFolder

    End If

    

End Function

sonra da her hangi bir formdaki her hangi bir liste kutusuna sıralı eklemek için aşağıdaki kodla çağırmayı deneyin

Private Sub BtnListele_Click()

Me.ListeKutusuAdi.RowSource = ""

DosyaDonguSirali KlasorAdi, True, Me.ListeKutusuAdi

End Sub

---

kodların özelliği modülde yer almasından dolayı her yerde kullanabilmenizdir.

---

denedikten sonra lütfen olumlu yada olumsuz geri bildirimde bulunun
iyi bayramlar