Do while not working as excepted, Loop never stop - excel

Question

I am trying to automaticly send to printer all .pdf file from a folder.
Here is the code I am trying
Option Explicit
Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
Public Sub PrintFile(ByVal strPathAndFilename As String)
Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0)
End Sub
Sub Test()
Dim filepath As String
Dim currfile As String
Dim wrdApps As Object
Dim wrdDoc As Object
Set wrdApps = CreateObject("Word.Application")
filepath = ActiveWorkbook.Path & "\AIMPRIMER\"
currfile = Dir(filepath & "*.PDF")
Do While currfile <> ""
PrintFile (filepath + currfile)
currfile = Dir()
Loop
End Sub
Do While Is used to browse all pdf file from the folder
PrintFile (filepath + currfile) Must send the current file to printer.
I except this to print all .pdf once but actually the do while loop isn't working as accepted, the do while loop is looping and never stop.
I tried : Debug.Print filepath + currfile here i got all .PDF 's path once, But this path isn't send once to the printer.
So I don't understand why Debug.Print filepath + currfile is working nicely and when I use PrintFile (filepath + currfile) the printer print and never stop printing...

Answer 1

It seems that the API call is throwing off the Dir, although I'm not able to replicate this problem (it seems my initial attempt did produce the infinite loop, but I'm not able to reproduce it a second time...). Best to build the list of files first.
Dim filepath$, currfile$, item
Dim files As New Collection
filepath = "C:\debug\"
currfile = Dir(filepath & "*.pdf")
' build a list of files to be printed later
Do While currfile <> ""
files.Add filepath + currfile
currfile = Dir()
Loop
' print each file in the list we created in previous loop
For Each item In files
PrintFile currfile
Next