FindFiles - Finding all files with a given filespec

' Finding all files with a given filespec into an ArrayList. Optionally scan 
' also subdirectories of the input dir
'
' Example:
'    Dim files As New ArrayList
'    FindFiles(files, "D:\Articles", "*.doc", True)
'    For Each file As String In files
'        Debug.WriteLine(file)
'    Next

Sub FindFiles(ByVal files As ArrayList, ByVal dirname As String, _
    ByVal filespec As String, ByVal recurseDirs As Boolean)
    ' add files with this filespec in current directory
    For Each fname As String In System.IO.Directory.GetFiles(dirname, filespec)
        files.Add(fname)
    Next
    ' recurse on subdirectory if so requested
    If recurseDirs Then
        For Each dname As String In System.IO.Directory.GetDirectories(dirname)
            FindFiles(files, dname, filespec, recurseDirs)
        Next
    End If
End Sub