+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak (/konu-klasordeki-tum-alt-klasor-ve-dosyalari-listboxa-almak.html)
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - accessman - 21/05/2020
alt klasörleri göstermiyor galiba
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
Sadece File leri getiriyor.
Bu dosyadada seçim yapabiliyorunuz.
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - berduş - 21/05/2020
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
Me.ListeKutusuAdı.RowSource = ""
DosyaDongu KlasörYolu, True, Me.ListeKutusuAdıRE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
(21/05/2020, 17:43)berduş yazdı: DosyaDongu KlasörYolu, True, Me.ListeKutusuMe.ListeKutusu bu koddan dolayı eğer başka modülden çağıracaksa hata verir bence.
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - berduş - 21/05/2020
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 RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
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.