Skip to main content

AccessTr.neT


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

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

#13
alt klasörleri göstermiyor galiba
@benbendedeilem
Cevapla
#14
Sadece File leri getiriyor.

Bu dosyadada seçim yapabiliyorunuz.
.rar Dosya yollari bulma vs 3 modul ile.rar (Dosya Boyutu: 36,63 KB | İndirme Sayısı: 2)
Cevapla
#15
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ı
Cevapla
#16
(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.
Cevapla
#17
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 
Cevapla
#18
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task