File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Displaying a list of files in a directory
Sub ListFiles2()
    
    With Application.fileSearch
        .NewSearch
        .LookIn = "c:\windows\desktop\"
        .FileName = "*.*"
        .SearchSubFolders = False
        .Execute
        For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i)
            Debug.Print FileLen(.FoundFiles(i))
            Debug.Print FileDateTime(.FoundFiles(i))
        Next i
    End With
End Sub