Filesearch error in Excel 2007

[Libby]

Hi

I have a sub that add files in a folder to a listbox. It worked fine in
Excel 2003, but now in Excel 2007 it doesn't and I get an error.

the code is below

Sub Fill_Listbox
strDir = path of folder
ChrDir strDir
With Application.Filesearch
.NewSearch
.LookIn = strDir
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
If .Excecute() > 0 Then
For i = 1 to .FoundFiles.Count
'Add file name to listbox
Next i
end if
End with

I've stepped though and the error occurs at the With Application.FileSearch
part.

The error is Run-time error 445. Object doesn't support this action.


Can anyone tell my why this doesn't work in Excel 2007 and if possible how
to achieve the same results using Excel 2007?

Many thanks in advance.

 

[Ron de Bruin]

Hi Libby

It is removed from 2007

You can use Dir or FSO
See the merge code on my site, you can use that for your macro
http://www.rondebruin.nl/copy3.htm

 

[Gary''s Student]

I don't think filesearch is supported in 2007.

http://groups.google.com/group/micr...filesearch+2007+group:*Excel#df190c9a6bb55117

 

[Libby]

Thanks again.

Another thing not supported by the new Excel. So far I'm struggling to see
any advantages.

 

[ilia]

Answered here:

http://groups.google.com/group/micr...g/browse_thread/thread/5c4bcda103da44cc?hl=en