General

6.30 Ricerca di un file sul disco.
  AntoGal
Dim i As Integer
With Application.FileSearch
   .LookIn = "C:\Documenti" 'dir di partenza
   .SearchSubFolders = True  'ricerca ricorsiva nelle sottodir
   .FileName = "*.doc" 'nome del file (anche con caratteri jolly)
   If .Execute() > 0 Then
       Debug.Print "Trovati " & .FoundFiles.Count & " file."
       For i = 1 To .FoundFiles.Count
           Debug.Print .FoundFiles(i) 'path+nome dei file trovati
       Next i
   Else
       MsgBox "Nessun file trovato."
   End If
End With

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.