Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

The FoundFiles Collection Object

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