finding all file in folder + subfolders

Not as such a standard function there is one way to do it:

Option Explicit
Private FSO As New FileSystemObject

Private FileCount As Long

Private Sub ScanFolder(Fold As Folder)
Dim fi As File
Dim fo As Folder

For Each fi In Fold.Files
txtFiles.Text = txtFiles.Text + fi.Path + vbCrLf
FileCount = FileCount + 1
Next

For Each fo In Fold.SubFolders
ScanFolder fo
Next

End Sub

Private Sub btnStart_Click()
Dim fld As Folder
txtFiles.Text = ""
Set fld = FSO.GetFolder(txtPath.Text)
If Not fld Is Nothing Then ScanFolder fld
txtFiles.Text = txtFiles.Text + CStr(FileCount) + " files counted."

End Sub

You need a form, a multiline textbox to display the filenames, a textbox to enter the path to list and a button to start the scanning.
The example adds all filenames in txtPath to the textbox named txtFiles
The sub ScanFolder recursively calls itself to accomplish the scan of all subfolders.
This is not the fastest method, but it is most comprehensive to understand how you can do the search through all subfolders.

P.S.: You need a reference to 'Microsoft Scripting Runtime' within your project.

Add this:



If Right$(fi.Path ,4)=".DLL" then ' Do something (or use <> for NOT)

The FSO should work with network paths as well.
\\Computername\Sharename
\\Computername\Sharename\Subfolder...
are both valid within the file system and should work.
\\Computername alone does not work. You need to specify the name of a shared folder which is available in the network.

For your specification you have to write a more complex if-statement like:

dim ft$, ftype$, p% 'need some more variables
'before loop extract filetype from input field
ftype$ = LCase(Mid$(TextBox.Text, InstrRev(TextBox.Text, ".")))
...
for each fi in Fold.Files
'we have to test if there is a '.' in the name
p = InstrRev(fi.Name, ".")
'now the matching
if p then ft$ = Lcase(Mid$(fi.Name, p)) else ft$=""
if ftype$ = ".*" or ftype$ = ft$ then ...
...

Also one might think of a different loop for the files, using the Dir statement.