AccessTr.neT

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

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 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.

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, 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.