Dim myFile As New OpenFileDialog() myFile.Filter = "Pdf Files (*.pdf)|*.pdf|All Files (*.*)|*.*" If myFile.ShowDialog() = _ DialogResult.OK Then If Dir(myFile.FileName) <> "" Then MsgBox("File Exists: " & _ myFile.FileName, _ MsgBoxStyle.Information) Else MsgBox("File Not Found", _ MsgBoxStyle.Critical) End If End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)