devxlogo

FindFiles – Finding all files with a given filespec

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)'    NextSub 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 IfEnd Sub

devx-admin

Share the Post: