I am searching a directory, my question is how do you search all of the subdirectories thereof?

Here is my code..

Private Sub cmdSearch_Click()
Dim sFile As String
Dim strClientID As String

strClientID = txtClient.Text

sFile = Dir$("C:\DigiSend\3-21\" & strClientID & "*.pdf") 'Get the first file

Do While Len(sFile) > 0 'Loop until we run out of files
lstQueryResults.AddItem sFile 'Add the file
sFile = Dir$ 'Get the next file
Loop

End Sub


Thanks!