Kod:
Dim dosyasec As FileDialog
Set dosyasec = Application.FileDialog(msoFileDialogFilePicker)
dosyasec.Title = "Dosya Seç" ' Dosya seçme penceresine istediğğiniz başlığı vermenizi sağlar
dosyasec.AllowMultiSelect = False ' False ise sadece bir dosya seçimi True ise çok sayıda dosya seçimi yapılmasını sağlar
'dosyasec.Filters.Clear ' İsteğinize bağlı olarak tanımlayabilirsiniz sadece belirli türde dosyaların seçilebilmesini sağlar
'dosyasec.Filters.Add "PDF Dosyaları", "*.pdf", 1 ' İsteğinize bağlı olarak yukarıdaki filtrelemeyi tanımlarsanız dosya seç ekranında sadece pdflerin seçilebilmesini sağlar
If dosyasec.Show = -1 Then
Me.BELGESİ.Value = dosyasec.SelectedItems(1) ' Kullanıcı dosya seçtiyse seçilen dosyanın yolu ve adı textboxa yazdırılır
Else
MsgBox "Dosya seçimi iptal edildi!", vbExclamation ' Kullanıcı dosya seçiminde iptale basarsa işlemi iptal ettiği uyarısı verir.
End If