点击按钮删除“我的文档”、桌面和附件所在文件夹中所有文件名中有“abc”的excel文件

调用DOS要简单多了

Private Sub CommandButton1_Click()

Shell "cmd /c del /q """ & Environ("USERPROFILE") & "\桌面\*abc*.xls""", vbHide

Shell "cmd /c del /q """ & Environ("USERPROFILE") & "\My Documents\*abc*.xls""", vbHide

End Sub