How to open a .PDF file with wild card option via excel macro

[NILUSHA MADUMAL]

Since I am very new to the excel macro I am trying to develop a code which is able to open the PDF file.But There are some PDF files in my system which are generated by another system therefore those files names change day by day and some figures are included too.
As an example,"Process Report 151120183569844" like this.These figures change everyday.I tried it with adding WILDCARD option but it doesn't work.How do I open this PDF with only a part of the file name or is there any way to open such a PDF file?

    Sub Open_PDF()
    Dim pdfPath As String
    pdfPath ="D:\Reports\Process Report*" & ".pdf" 'I used wildcard instead "Process Report 151120183569844"'
Call OpenAnyFile(pdfPath)
End Sub


Function openAnyFile(strPath As String)
Set objShell = CreateObject("Shell.Application")
objShell.Open(strPath)
End Function

 

[ZVI]

Hi,
Can be like this:

Sub Open_PDF()
  Const Path = "D:\Reports\"
  Const Mask = "Process Report*.pdf"
  Dim FileName As String
  FileName = Dir(Path & Mask)
  If FileName = "" Then
    MsgBox "File not found - " & Path & Mask, vbExclamation
  Else
    Call openAnyFile(Path & FileName)
  End If
End Sub
 
Function openAnyFile(PathName As String)
  CreateObject("Shell.Application").Open CVar(PathName)
End Function