bir modül oluşturup aşağıdaki kodları ekleyi

Sub DosyaDongu(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

    HdfLst.ColumnCount = 3'<-- bu satıra ve alttakine gerek yok aslında sadece önlem amaçlıydı

    HdfLst.RowSourceType = "Value List"'<--



    'Loop through each file in the folder

    For Each objFile In objFolder.Files

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

    

    HdfLst.AddItem TxtAdres & ";" & objFile.Name & ";" & Format(CDbl(objFile.Size / 1024), "standard") & " KB"

    Next objFile

    

    'Loop through files in the subfolders

    If IncludeSubFolders Then

        For Each objSubFolder In objFolder.SubFolders

            Call DosyaDongu(objSubFolder, True, ListeKutusu)

        Next objSubFolder

    End If

    

End Sub

istediğiniz yerden aşağıdaki kodu yazarak çağırabilirsiniz

Me.ListeKutusuAdı.RowSource = ""

DosyaDongu KlasörYolu, True, Me.ListeKutusuAdı