Error with Application.FileSearch

[MR Campbell]

I have the following code which works fine on my desktop computer but not on my laptop ... I am very confused why I am getting an error with the Application.FileSearch line of code.

I get a Run time error '445' ....
Object doesn't support this action


Private Sub DeleteFiles()
'This routine will delete all the .xls files in the FormSent folder and in the
'DataFromSchools folder

Dim KillPath As String 'directory path for the FormsSent folder
Dim i As Integer 'counter for all files found in the folder


'find all .xls files in this folder and Delete them
KillPath = ThisWorkbook.Path & "\FormsSent\" 'FormsSent folder

With Application.FileSearch
.LookIn = KillPath
.FileName = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End With

'find all .xls files in the DataFromSchools folder and Delete them
KillPath = ThisWorkbook.Path & "\DataFromSchools\" 'DataFromSchools folder
With Application.FileSearch
.LookIn = KillPath
.FileName = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End With

End Sub


Does anyone know why this might be happening ?

 

[Andrew Poulsom]

FileSearch has been deprecated in Excel 2007. You will have to use Dir instead.

 

[jim may]

Application.FileSearch Is NOT supported in xl2007. Could that be your problem?

 

[MR Campbell]

FileSearch has been deprecated in Excel 2007. You will have to use Dir instead.

Thanks for that ... Do I write :

With Application.Dir
etc.

End With

 

[Andrew Poulsom]

Actually, you don't need FileSearch or Dir:

http://www.rondebruin.nl/folder.htm#Delete