Probably cuz you didn't specify where to look. From HELP
With Application.FileSearch
.LookIn = "c:\my documents"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With
============
You may like this
Sub FindFiles()
Application.ScreenUpdating = False
Dim FN As String
Dim ThisRow As Long
Dim FileLocation As String
FileLocation = "c:\yourfoldernamehere\*.*"
FN = Dir(FileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"lombardm" wrote in message
...
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