Saving file in specific location

[snb]

Sufficient code:

Sub M_snb()
  With Application.FileDialog(4)
    If .Show Then If Dir(.SelectedItems(1) & "\Example.pdf") = "" Then ThisWorkbook.ExportAsFixedFormat 0, .SelectedItems(1) & "\Example.pdf"
  End With
End Sub