如何用VBA批量删除文件

Sub 批量删除文件()
    mypath = ThisWorkbook.Path
    f = Dir(mypath & "\*.xlsx")  '查找当前路径下符合条件的文件名
    While f <> ""  '一直到F找不到合条件的就结束循环
           If f <> "test.xls" Then 不为test.xls 则删除
                Kill mypath & "\" & f
           End If
           f = Dir '找下一个
    Wend
End Sub