Skip to main content

AccessTr.neT


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

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

Çözüldü #1
Klasördeki tüm alt klasör ve dosyaları Listboxa Almak için şu kodda nasıl bir değişiklik yapmak lazım

Visual Basic Code
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

@benbendedeilem
Cevapla
#2
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.
Cevapla
#3
neresi eksik  bilemediğim için yazdım 
.zip Populate ListBox_2.zip (Dosya Boyutu: 22,59 KB | İndirme Sayısı: 4)
@benbendedeilem
Cevapla
#4
(21/05/2020 12:51)accessman Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#5
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
@benbendedeilem
Cevapla
#6
(21/05/2020 14:59)accessman Adlı Kullanıcıdan Alıntı: 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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da