Soru Klasör içerisindeki dosyaları buldurmak

[rdvan89]

Merhaba,
Bir dosya içerisinde bulunan PDF formatında olan dosyalardan kullanmak istediklerimizi excel listesi üzerinden buldurmak istiyorum. Konuyla alakalı yardım edeblilir misiniz?

 

[u.L.a.s]

MyFolder = "C:\Users\kullanıcıadı\Documents" kodunda hangi klasör altına baktıracaksınız o klasör yolunu yazınız

Sub Test()
Dim MyFolder As String, MyFile As String
Dim i As Long
MyFolder = "C:\Users\kullanıcıadı\Documents"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.pdf", vbDirectory)
Do While MyFile <> ""
Cells(i + 1, 1) = MyFile
i = i + 1
MyFile = Dir
Loop
End Sub