Printing unopened .doc(s) from multiple folders

[Nelson C via OfficeKB.com]

I have 30 .docs residing in different folders.
The root folder name is C:\root\
The subfolders and files have unique (different) user names, such as:
C:\root\abuch3\letter1_0001.doc
C:\root\ajutr2\letter1_00301.doc
C:\root\arpoot1\letter1_0222.doc

Is there a way to create a macro that recursively opens the documents from
the root folder, prints them, then closes them without saving any changes?
I can't figure out the wildcard on a folder and the wildcard on a file name.

Thanks in advance.

 

[Nelson C via OfficeKB.com]

I am trying this (not working) but need "recursivity":

Sub PrintFilesCurrentDir()
' PrintFilesCurrentDir Macro
'
Dim strFile As String
strFile = Dir(".\*.doc")
Do Until strFile = ""
Debug.Print strFile
strFile = Dir
Loop
End Sub