File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. List all files under application path
Sub FileList()
  Dim File As Variant
  With Application.FileSearch
    .LookIn = "C:\"
    .FileType = msoFileTypeAllFiles
    .Execute
    For Each File In .FoundFiles
      MsgBox File
    Next File
  End With
End Sub