AccessTr.neT

Tam Versiyon: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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 Img-grin

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.
Sayfalar: 1 2 3 4