如何用kill删除同目录下其他*.XLS文件

Sub KillFile()
With Application.FileSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True '搜索子文件夹
.Filename = "*" & ".xls"  '搜索文件名包含所选表格名的.xls文件
Dim m As Long
If .Execute > 0 Then
For m = 1 To .FoundFiles.Count - 1
Dim strTemp As String
strTemp = .FoundFiles(m)
If strTemp <> ActiveWorkbook.Path & "\预算样板总表(总表后).xls" Then
VBA.Kill strTemp
End If
Next
End If
End With
End Sub