同じディレクトリの中に複数ファイルがある場合のループ処理

Question

下記のコードのように、 strFolderPath = Cells(2, 6).Valueの中に「見積」というキーワードが含まれるPDFファイルについて、印刷するような仕組みを作成しております。ここでDo While strPDFName <> ""のループを加えるまでは実装ができたのですが、このループを加えることで、PDF処理が永久ループしてしまいます。
意図としては、 strFolderPath = Cells(2, 6).Valueの中に「見積」というキーワードが含まれるPDFファイルが複数存在する可能性があり、これらを全て出力するためにループさせたいということになるのですが、Do While strPDFName <> ""でうまく実装ができず、ご相談させて頂きました。
アドバイスを頂けると幸いです。
宜しくお願い申し上げます。

Sub openFile()
  
    Dim strPDFName As String
    Dim strFolderPath As String
    Debug.Print (Application.activePrinter)
    
    
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                          'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    Dim printFilePath As String

    'Printerの処理------------------------------------------------
    Dim activePrinter As String
    activePrinter = Application.activePrinter
    If activePrinter = "" Then
        MsgBox "プリンター情報が取得できませんでした" & Chr(13) & "プリンターが接続されていることを確認してください"
        End
    End If
    Dim intPoint1 As Long
    intPoint1 = InStr(activePrinter, "on") - 2
    Dim usePrinter As String
    usePrinter = Left(activePrinter, intPoint1)
    Debug.Print (userPrinter)
     '------------------------------------------------
    
    'Loop処理------------------------------------------------
    strFolderPath = Cells(2, 6).Value
    strPDFName = Dir(strFolderPath & "*見積*")
    
    If strPDFName = "" Then
          Cells(2, 7).Value = "×"
    Else
      Do While strPDFName <> "" 'Folder内に複数の「見積」ファイルがある場合のループ
        printFilePath = strFolderPath & "\" & strPDFName
        strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & userPrinter
        wshShellObj.Run (strShellCommand)
        Cells(2, 7).Value = "○"
      Loop
    End If
    '------------------------------------------------
    
 
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
    

End Sub

Answer 1

Do ～loop内で**Dir()**していないから、strPDFNameの値は永久に変化しません。
loop の直前に以下を追加して下さい。

strPDFName = Dir()

Comments

[pegy]

コメント頂き有難うございます。
今Dir()でから引数の場合どのような挙動をするのかを調べていた（https://www.tipsfound.com/vba/05dir）のですが、結果的に永久ループはしなくなりました。
ただしながら、もともと意図していた2件以上「見積」キーワードを含む場合の複数回印刷出力をしてほしいという点では、仮に2件入れたディレクトリで実行したところ、1件しか出力できていなういという点で正しくループしていないことがわかりました。あまり、シェルオブジェクト等には明るくないのですが、印刷するたびにオブジェクトを作成して開放するループをしなくてはいけないのでしょうか？

If strPDFName = "" Then
Cells(2, 7).Value = "×"
Else
fileCount = 1
Do While strPDFName <> "" 'Folder内に複数の見積がある場合のループ
printFilePath = strFolderPath & "\" & strPDFName
strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & userPrinter
wshShellObj.Run (strShellCommand)
Cells(2, 7).Value = "○"
Cells(2, 8).Value = fileCount
fileCount = fileCount + 1
strPDFName = Dir()
Loop
fileCount = 1
End If
'------------------------------------------------

'オブジェクトを強制開放

[sazi]

RunコマンドでWaitOnReturn=Trueを指定すると同期処理となり完了を待ってから次の実行になると思いますが、AcroRd32.exeは起動しても閉じないっぽいので、ダメかもしれませんね。
Adobe Acrobat Reader DCで自動印刷する
https://qiita.com/takiru/items/f38e94e666e802fa9a25

何れにしても、質問とは逸れていますから、こちらは閉じて、駄目なようなら別質問にした方が、知見のある人が見てくれると思います。

[pegy]

コメントありがとうございます。おっしゃるとおり、本旨からそれてしまいますので、別質問として投稿をさせて頂きます。
お力添えに御礼申し上げます。

[pegy]

調べた結果、Dir()※からの引数※メソッドを実行することで、複数のファイルやフォルダと一致するときに、次のパスを取得できることがわかりました。従ってループの末尾にこれを加えたものを変数strPDFNameに格納することで <>""になるまで意図するループが実行できることが理解できました。備忘のためにclose後の案件ですが付記させて頂きます。