Çözüldü Comboboxta Seçilen Klasörü Listboxta Listeleme ve Açma

Değerli üstatlar C:\ sürücüsünün içerisinde 2020 ve 2021 isminde (bu sonraki yılar 2022,2023... devam edecek) iki adet klasör ve bu klasörlerin içerisinde PDF uzantılı dosyalarım var. Yapmak istediğim Combobox ta seçtiğim klasör ismine göre bu klasörün içindeki dosyaları Listboxta listelemek ve istediğim dosyaya listboxta çift tıklayıp yada başka yöntemlede olabilir açmak. Bu konudaki yardımlarınız için şimdiden teşekkürler

Merhabalar,
Bu kodları kullanabilirsiniz.

Murat OSMA' Alıntı:

Merhabalar,
Bu kodları kullanabilirsiniz.

C#:Panoya kopyala

Private Sub ComboBox1_Change()
    Dim fso As Object
    ListBox1.Clear
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    For Each dosya In fso.getfolder("C:\" & ComboBox1.Value).Files
        ListBox1.AddItem dosya.Name
    Next dosya
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    adres = "C:\" & ComboBox1.Value & "\" & ListBox1.Value
    CreateObject("Shell.Application").Open adres
End Sub

Genişletmek için tıkla ...

Murat hocam çok teşekkür ederim tam istediğim gibi olmuş zihnine sağlık

Rica ederim, iyi akşamlar.