Sub found()
Dim ff As FoundFiles
Dim fs As fileSearch
Dim I As Integer
Set fs = Application.fileSearch
Set ff = fs.FoundFiles
With ff
For I = 1 To ff.Count
Debug.Print ff.Item(I)
Next I
End With
End Sub