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