I would like to create a list of all the files in a folder, but am
fumbling with the detail. The code below only lists the files with
extension ".doc" in the folder in question. There ore other types of
files (.pdf, .tiff) but they are not listed. Any reason why, and how
does one work around it.

Thanks
Laurence

Sub test2()
With Application.FileSearch
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Sheets("Sheet1").Range("A" & i).Value = .FoundFiles(i)
Next i
End With


End Sub