Soru Klasör Ve Dosya Listeleme

[hlojan]

Merhaba ;

Bir klasörün alt klasörlerini listelemek ve içindeki dosyaları listelemek istiyorum. Örnek dosyam ekte. Klasörleri yapabilgim ama dosyalşalrı yapamadım. Yarımcı olurmusunuz

 

[Emir Hüseyin Çoban]

.

Private Sub ComboBox1_Change()
    Yol = ThisWorkbook.Path & "\Kalıp\" & ComboBox1.Text

    ComboBox2.Clear
    c = 0
    
    Set nesne = CreateObject("Scripting.FileSystemObject")
    dosyasayisi = nesne.GetFolder(Yol).Files.Count

    If dosyasayisi > 0 Then
        For Each dosya In nesne.GetFolder(Yol).Files
            c = c + 1
            ComboBox2.AddItem dosya.Name
        Next
    End If

End Sub

.

 

[hlojan]

Teşekkürler.