Application.GetOpenFilename için yardım

[metinak]

arkadaşlar,
aşağıdaki kodu kullanıyorum,bu kod ile tüm klasörleri görebiliyorum, ancak sadece belirli bir klasördeki pdf dosyaları görmek istiyorum.

Dim MyFile As String
MyFile = Application.GetOpenFilename(FileFilter:="PDF Files (*.PDF), *.", Title:="Select File To Be Opened")



nasıl yapabilirim?

 

[Orion1]

Gitmek istediğiniz klasörü yazınız.

Dim MyFile As String
[B][COLOR="Red"]chdir ("C:\Gitmek istenen klasör")[/COLOR][/B]
MyFile = Application.GetOpenFilename(FileFilter:="PDF Files (*.PDF), *.", Title:="Select File To Be Opened")

 

[metinak]

Teşekkürler