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

1 2 3 4
21/05/2020, 12:20

accessman

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 Sub
21/05/2020, 12:32

feraz

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.
21/05/2020, 12:51

accessman

neresi eksik  bilemediğim için yazdım 
21/05/2020, 14:47

feraz

(21/05/2020, 12:51)accessman yazdı: neresi eksik  bilemediğim için yazdım 
Yaw 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.
21/05/2020, 14:59

accessman

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
21/05/2020, 15:12

feraz

(21/05/2020, 14:59)accessman yazdı: 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
Dosya derken Folder mi File mi demek istiyorsunuz.File mesela txt yada accdb gibi yada jpg gibiler.
1 2 3 4