+- 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)
Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - accessman - 21/05/2020
Klasördeki tüm alt klasör ve dosyaları Listboxa Almak için şu kodda nasıl bir değişiklik yapmak lazım
Private Sub getSubListFiles(ByVal strFolders As String, intCounter As Integer)
Dim fso As New FileSystemObject
Dim fldFolders As Folder
Dim fldr As Folder
Dim subfldr As Folder
Dim sfldFolders As String
Dim strSQL As String
Set fldFolders = fso.GetFolder(TrailingSlash(strFolders))
Me.listSource.AddItem intCounter & ";" & fldFolders.Path & ";" & fldFolders.Name & ";" & fldFolders.Size
For Each fldr In fldFolders.SubFolders
intCounter = intCounter + 1
Me.listSource.AddItem intCounter & ";" & fldr.Path & "," & fldr.Name & ";" & fldr.Size
For Each subfldr In fldr.SubFolders
intCounter = intCounter + 1
sfldFolders = subfldr.Path
Call subListFolders(sfldFolders, intCounter)
Me.listSource.Requery
Next
Me.txtListed = intCounter
Me.txtListed.Requery
Next
Set fldFolders = Nothing
Set fldr = Nothing
Set subfldr = Nothing
End SubRE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
Tam olarak açıklarmısın abey.
Mesela sonuç nasıl olacak ilk sütuna klasör adı ikinciye alt klasör adımı gibi.
Tam olarak nasıl olacağını yazarsanız bakalım ayrıca kodu eksik yazmışsınız.
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - accessman - 21/05/2020
neresi eksik bilemediğim için yazdım
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
(21/05/2020, 12:51)accessman yazdı: neresi eksik bilemediğim için yazdımYaw abey tam olarak ne istiyorsunuz ne yapılacak?
Dosyayı indirdim denedim C deki Test klasör içindeki verileri(Klasör değil) listeliyor.Tabii Test klasör yoksada hata veriyor.
Öncedende yazdım yine yazmak zorunda kalıyoruz aynı şeyleri durmadan.
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - accessman - 21/05/2020
ben herhangi bir formdan
modüldeki fonksiyona bir klasör yolu ve listbox adı göndereceğim
sonuçta o klasör ve alt klasörlerindeki
dosya yolu, dosya adı ve dosya boyutu listboxta listelenecek
RE: Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak - feraz - 21/05/2020
(21/05/2020, 14:59)accessman yazdı: ben herhangi bir formdanDosya derken Folder mi File mi demek istiyorsunuz.File mesela txt yada accdb gibi yada jpg gibiler.
modüldeki fonksiyona bir klasör yolu ve listbox adı göndereceğim
sonuçta o klasör ve alt klasörlerindeki
dosya yolu, dosya adı ve dosya boyutu listboxta listelenecek