File Path VisualBasic Script

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