Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak

alt klasörleri göstermiyor galiba

Sadece File leri getiriyor.

Bu dosyadada seçim yapabiliyorunuz.

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ı

(21/05/2020, 17:43)berduş yazdı: DosyaDongu KlasörYolu, True, Me.ListeKutusu

Me.ListeKutusu bu koddan dolayı eğer başka modülden çağıracaksa hata verir bence.

her hangi bir formdan çağrılabilr önemli olan listekutusu adının ve adresin doğru olması

---

liste kutusunun adı liste5 ise oraya liste5 yazılacak

DosyaDongu KlasörYolu, True, Me.liste5 

Ben denedim kodlarınızı hata vermişti.Heralde sayın @accessman abeyimiz treew olayı için hazırlık yapıyor
Bence istediği gibi olmadı son mesajundan anladım.Sonuç şöyle çıkacak diye resim atsa anlarızda maliesef.

Artık ben bıraktım konuyu abey fazlası gelmez elimden.Siz devam edin inşAllah.