PDFをタイトル名の部分一致検索で開く方法

Question

以下の様に strFolderPath下にある「見積」をファイル名に含むPDFを開きたいのですが、
strPDFName = Dir(strFolderPath & "見積")が実際にはファイルが存在するのに、開いてくれません。
つまり
CreateObject("Shell.Application").ShellExecute strFolderPath & "" & strPDFName
の結果が&以下が何も取得できていません。
実際に存在するファイル名
"S:\3_nn部\xxx\yyyy\2011\2011-01\nn_見積書_nn.pdf"
dir()でアスタリスクで曖昧検索で取得できないのでしょうか？
コード上の誤りがあればご教示願えると助かります。

Sub openFile()
  
    Dim strPDFName As String
    Dim strFolderPath As String
    
    strFolderPath = Cells(2, 6).Value
    strPDFName = Dir(strFolderPath & "*見積*")
    
     Do While strPDFName <> ""
          CreateObject("Shell.Application").ShellExecute strFolderPath & "\" & strPDFName
          strPDFName = Dir()
     Loop
    
    
End Sub

Answer 1

こうでしょうか。

'strPDFName = Dir(strFolderPath & "*見積*")
strPDFName = Dir(strFolderPath & "*見積*")

Comments

[pegy]

ありがとうございます！
解決しました！