Why I cannot use the wildcard while opening a pdf file?

[Ongbey]

Hi everyone,

I cannot open a pdf file starting a specific text. Could you please check below code?

--------------------------------------------------------
file="123456ABC"
file = file & "*"
tgtfile = "\\filesrv\d\Serialproduction\" & file & ".pdf"
CreateObject("Shell.Application").Open (tgtfile) & vbNullString
------------------------------------------------------

"Serialproduction" folder consist of following files:
136547.pdf
123456ABC_RevA.pdf
896534L.pdf
896534E.pdf
----------------------------------------------------
I need to open a file starting with "123456ABC". That is all, but I cannot success it in Excel 2013 VBA.

 

[Special-K99]

You'll need to loop through the files in the directory and open each file within the loop.

 

[Ongbey]

You'll need to loop through the files in the directory and open each file within the loop.

Bu I want to open one file. Generally, one file meet our search. So, only Rev part change such as _RevA, _RevB, _RevC.

 

[Special-K99]

So you want to open ONE file but dont know if it ends RevA or RevB or RevC ?
Again, loop through the directory searching the filenames for the pattern you want
Use VBA Instr() to check for "_Rev", if it matches open that file.

 

[Joe4]

Bu I want to open one file. Generally, one file meet our search. So, only Rev part change such as _RevA, _RevB, _RevC.

Just to clarify, if only one file matches the requirements, the loop will only open one file.
So don't concern yourself that a loop is being involved and you only want to open one file.

 

[Ongbey]

In that case, could you please write a loop for me? I am not familiar those loop issues. Thanks.

 

[John_w]

Try this:

file="123456ABC"
file = file & "*"
tgtfile = Dir("\\filesrv\d\Serialproduction\" & file & ".pdf")

If tgtfile <> vbNullString Then
    CreateObject("Shell.Application").Open ("\\filesrv\d\Serialproduction\" & tgtfile) 
End If

 

[Ongbey]

Try this:

file="123456ABC"
file = file & "*"
tgtfile = Dir("\\filesrv\d\Serialproduction\" & file & ".pdf")

If tgtfile <> vbNullString Then
    CreateObject("Shell.Application").Open ("\\filesrv\d\Serialproduction\" & tgtfile)
End If

Thank you, it works.