File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. The FileSearch Object
Sub fileSearch()
    Dim fs As fileSearch
    Dim numFiles As Long
    Set fs = Application.fileSearch
    With fs
        .NewSearch
        numFiles = .Execute
    End With
End Sub