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.