E024.xls - Object doesnt' support this action

[NelsonC]

I just bought "Office VBA Macros you can use today" and wanted to try a macro: "Creating a list of files that reside in a directory".
I was disappointed to see that it choked at line 31: "With Application.FileSearch", with the error message: "Object doesnt' support this action".

I am a beginner with VBA and wonder if any one has a fix for this...
You can find the entire file and many others (I have not tryied yet ), in the section for the title of this book (a .zip file).
Here is the snipplet from the code that stops the macro.


'New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.NewSearch
.LookIn = Folder
.SearchSubFolders = LookInSubFolders
.FileType = msoFileTypeAllFiles
.Execute

 

[circledchicken]

Hi,

If you are using Excel 2007 or 2010, it seems Application.FileSearch has been deprecated. See:

• http://zypher-blog.blogspot.co.uk/2011/08/applicationfilesearch-replacement-for.html
• http://vbadud.blogspot.co.uk/2010/02/office-2010-applicationfilesearch-error.html

 

[NelsonC]

Hi,

If you are using Excel 2007 or 2010, it seems Application.FileSearch has been deprecated. See:

• http://zypher-blog.blogspot.co.uk/2011/08/applicationfilesearch-replacement-for.html
• http://vbadud.blogspot.co.uk/2010/02/office-2010-applicationfilesearch-error.html

Thanks for the info. I am using MS Excel 2010 Professional. While I understand (I think) some of the code, I have no clue where to use the suggestions you gave me. I wonder if the authors of the book, may have an update.

 

[circledchicken]

Thanks for the info. I am using MS Excel 2010 Professional. While I understand (I think) some of the code, I have no clue where to use the suggestions you gave me. I wonder if the authors of the book, may have an update.

Your welcome. I think it depends on exactly what you want to achieve? I suggest perhaps try some of the other beginner tutorials from your book first and then you can come back to this if your just starting out.